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Aba tract 

lilorocoai^utar-baaad  databaaa  managcmant  ayatmmm  can 
raduca  training  tlaiaa  and  arror  rataa  on  admlnlatratlva 
taaka  In  many  work  araaa .  Workara  in  many  organlzatlona 
could  uaa  tha  aaalatanca  of  a  mlcrocomputar-baaad  managamant 
information  ayatam.  Howavar,  adaqtiata  ayatam  daaign  and 
davalopmant  raqulraa  in-dapth  knowladga  of  tha  taaka  to  ba 
automatad,  and  can  raquira  hundrada,  avan  thouaanda ,  of 
houra  to  complata.  Of tan.  tachnlclana  aaalgnad  to  a  work 
araa  do  not  hava  tha  knowladga  or  tima  to  davota  to  tha 
daaign  and  davalopmant  of  an  information  ayatam.  Ona  auch 
work  araa  la  tha  Equipmant  Managamant  Saction  in  tha  Air 
Forca  baaa  aupply  organization.  Tha  purpoaa  of  thia 
atudy  waa  to  apply  princlplaa  of  databaaa  managamant  to  tha 
managamant  of  aquipmant  itama,  with  tha  ultimata  goal  baing 
a  raduction  in  arror  rataa  and  training  timaa. 

Tha  atudy  waa  conductad  ualng  a  aarlaa  of  aavan  atagaa 
of  information  ayatama  daaign  advocatad  by  Sann  (Sann, 
1984:18).  Thaaa  atagaa  raquira  a  thorough  axamination  of 
tha  problam  and  problam  anvironmant  prior  to  daaign  and 
davalopmant  of  tha  information  ayatam.  Accordingly,  fiva 
raaaarch  quaationa  daaignad  to  halp  tha  raaaarchar  gain  a 
thorough  undaratanding  of  tha  Equipmant  Managamant  Saction 
and  tha  anvironmant  in  tritich  it  functiona  wara  aakad  and 
anawarad.  Than,  a  managamant  information  ayatam  waa 
daaignad.  davalopad,  and  taatad. 


xlii 


Th*  anAfiagABMiit  Infopmatlon  •yat*m  la  cal  lad  tha 
Squlpnant  Hanagamant  Information  Syatam  (BlIIS)  .  EMIS 
automataa  four  taaka  foraMrly  aecoaq>llahad  manually.  Thaaa 
taaka  wara  found  to  eontributa  to  high  arror  rataa  and 
axtandad  training  tlmaa  In  tha  Equipment  Managamant  Section. 
Tha  taaka  are  tha  Air  Force  Form  800  Control  Log,  Tablaa  of 
Allowancaa  Review  Llat,  Configuration  Oata/RaauaM  File,  and 
tha  Equipment  Cuatodlan  Llat.  Air  Force  Loglatlca 
Management  Canter  Directorate  of  Supply  paraonnal  have 
agreed  to  validate  BMIS  and  dlatrlhute  It  to  intereated 
major  comoianda. 
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AUTOMATING  THE  AIR  FORCE  RETAIL-LEVEL 


EQUIPMENT  MANAGEMENT  PROCESS: 

AN  APPLICATION  OF  MICROCOMPUTER-BASED 
INFORMATION  SYSTEMS  TECHNIQUES 

I .  Introduction 

Overview 

The  introduction  of  the  first  electronic  computer, 

ENIAC,  in  1946  (Robbins  and  Braly.  1987:2)  began  a 

revolution  of  change  in  the  world  as  human  beings  view  it. 

Changes  in  almost  every  area  of  society  have  been  directly, 

or  indirectly,  brought  about  by  the  computer.  As  this 

'information  revolution*  began  to  reach  into  our  daily 

activities.  Alvin  Toffler  wrrote 

Recently,  the  computer  has  touched  off  a  storm  of 
fresh  ideas  about  man  as  an  interacting  part  of 
larger  systems,  about  his  physiology,  the  way  he 
learns,  the  way  he  remembers,  the  way  he  makes 
decisions.  Virtually  every  intellectual  discipline 
from  political  science  to  family  psychology  has  been 
hit  by  a  wave  of  imaginative  hypotheses  triggered  by 
the  invention  and  diffusion  of  the  computer--and  its 
full  Impact  has  not  yet  struck  (Toffler,  1970:29). 

Toffler’s  words  are  quite  prophetic.  Indeed,  since  the  late 

1970s,  when  mass  production  of  microcomputers  began,  the 

computer  has  become  much  more  than  a  tool  for  managing 

finances  and  inventories  and  truly  has  touched  every  aspect 

of  our  lives. 

Computers  can  do  a  tremendous  amount  of  work  in  a  short 
period  of  time.  They  are  well  suited  to  the  accomplishment 


of  ropotitivo  toaka  vrtiich  raquipa  a  groat  doal  of 
aoeuraoy . . . Juat  tho  aort  of  taak  that  human  bolnga  aro  not 
partioularly  good  at  accompllahlng  conaiatontly .  Computora 
can  provide  information  to  people  who  need  that  information 
in  order  to  manage  prooeaaea  and  make  deciaiona.  Before  the 
wldeapread  uae  of  computera,  large  amounta  of  information 
were  generally  available  on  paper  only.  The  diatribution  of 
information  waa  hampered  by  the  limltatlona  of  our 
tranaportation  ayatema.  FurtheraMre,  Information  of  a 
almilar  nature  publlahed  by  two  or  more  aourcea  waa 
difficult  to  bring  together.  Today,  uaing  coa^utera  and 
telephone  llnea,  thouaanda  of  plecea  of  data  (the  worda 
’  inf oraiation*  and  ’data’  will  be  uaed  interchangeably  in 
thla  theala)  can  now  be  tranaferred  around  the  world  in  a 
few  mlnutea. 

In  addition  to  their  ability  to  tranafer  data, 
computera  are  capable  of  cataloging  data  ao  that  it  can  be 
linked  with  information  of  a  almilar  nature  and  provided  to 
uaera  in  an  organized  manner.  Thia  cataloging  function  ia 
uaually  accompllahed  by  organizing  the  information  in 
databaaea.  A  databaae  *ia  a  collection  of  data  which  are 
ahared  and  uaed  for  multiple  purpoaea'  (Martin,  1081:2). 
Databaaea  atore  inforowtion  in  a  atrict ,.  def ined  format  ao 
that  people  who  need  the  information  can  find  it,  extract  it 
in  a  uaable  form,  and  aunuBarize  it.  Databaaea  uaually  muat 
aerve  the  needa  of  many  different  uaera,  and  moat  uaera  need 
only  email  amounta  of  information  at  any  given  time. 
Therefore,  computer  programa  are  written  to  help  uaera 
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aaa«aa  databaaaa  and  axtract  only  tha  information  whloh  thay 
naad.  A  databaaa  managamant  ayatam  (DBMS)  la  a  program  or  a 
numbar  of  programa  which  managa  databaaaa  ao  uaara  don't 
hava  to  parform  tha  managamant  function  (Pratt,  1988:0). 

Prior  to  tha  advant  of  microcomputara ,  of  tan  cal lad  PCa 
(an  abbraviatlon  of  Paraonal  Coay>utar) ,  uaara  of  information 
naadad  tha  aaaiatanca  of  programatara  and  computar  oparatora 
to  accaaa  databaaaa  and  axtract  tha  daairad  Information. 

Thla  bagan  to  changa  in  tha  aarly  1080a  with  tha 
prolif aration  of  PCa  and  aophiaticatad  microeomputar-baaad 
DBMS  aoftwara  (Banat  a^  1980:10).  Today,  PC  uaara 
thamaalvaa,  not  coiqtutar  profaaaionala ,  of  tan  build 
databaaaa  and  writa  programa  to  aalaot,  aort,  auauiarlxa,  and 
parform  calculationa  on  tha  data  in  thoaa  databaaaa  (Banat, 
at  al ;  1088,8).  Whila  building  databaaaa  and  writing 
programa  ara  tima  conaximing  activltlaa  which  raquira 
knowladga  and  akilla  galnad  from  raadlng  and  axparianca,  tha 
DBMS  aoftwara  availabla  today  allowa  motivatad  individuala 
with  no  formal  coaqiutar  training  to  accompliah  thaaa  taaka . 
Howavar ,  thara  ara  a till  many  work  araaa  which  do  not  uaa 
availabla  computing  powar  to  accompliah  rapatitiva 
information  managamant  taaka  at  which  computara  ara  capabla 
and  afficiant.  Ona  of  thaaa  work  araaa  la  tha  Equipmant 
Managamant  Saction  (EMS)  in  tha  Air  Forca  baaa  aupply 
organization  (Kandall,  1087;  Haahrlng,  1088). 
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Background 

Tochnicians  aaalgnad  to  tha  BUS  ganarally  axparlonca 
longer  training  parioda  and  racaiva  mora  negative  findings 
from  llanagamant/Unit  Bf  faetivanaaa  Inspection  teams  than 
technicians  assigned  to  any  of  the  other  sections  in  the 
Standard  Base  Supply  System  (SBSS)  (Kendall,  1087;  Reuwer , 
1088) .  Air  Force  Logistics  Management  Center  (AFLMC) 
personnel  believe  that  inefficient  policies  and  procedures 
and  a  lack  of  an  adequate  DBMS  for  equipment  managestent 
technicians  combine  to  complicate  training  and  Increase 
error  rates  (Kendall,  1087).  Reuwer  emphasized  that  a  ten 
percent  reduction  in  error  rates  will  result  in  lower 
expenditures  for  equipment  items,  shorter  cycle  times  from 
ciistomer  request  to  customer  receipt  of  equipment  items,  and 
as  much  as  a  20  percent  increase  in  mission  support  by  the 
BMS  (Reuwer,  1088).  With  the  goal  of  reducing 
administrative  errors  in  the  BMS,  AFLMC  personnel  developed 
a  project  plan  to  study  retail-level  equipment  management 
and  automate  selected  procedures  currently  performed 
manually.  However,  due  to  manpower  limitations,  this 
project  has  not  been  accomplished. 


Statement  of  the  Problem 

Many  Equipment  Management  Sections  experience 
unacceptable  error  rates  and  extensive  periods  of  training 
before  new  personnel  are  considered  proficient  (Kendall, 
1087;  Wilson,  1988a).  A  study  was  conducted  to  determine 
those  procedures  vrtiich  contribute  to  these  problems. 


Procedures  identified  as  contributing  to  error  rates  or 
extended  training  times  were  analyzed  and  a  determination 
made  concerning  the  appropriateness  of  automation  using 
database  managesient  software  hosted  on  a  microcomputer. 
Selected  procedures  viere  then  automated  using  a  commercially 
available  DBtiEI  software  package. 

Research  Objective 

The  purpose  of  this  study  was  to  apply  principles  of 
database  management  to  the  management  of  equipment  items, 
with  the  ultimate  goal  being  a  reduction  in  error  rates  and 
training  times.  The  plan  was  to  automate  selected  manual 
equipment  stanagement  procedures  on  a  microcomputer. 
Procedures  selected  for  automation  met  the  following 
criteria: 

1.  A  Biajority  of  those  interviewed  believe  that  the 
current  procedure  adversely  impacts  mission  accomplishment 
by  increasing  training  times  and/or  error  rates. 

2.  Automation  is  judged,  by  the  researcher  as  well  as 
those  Interviewed,  to  be  a  reasonable  approach  to  improving 
the  procedure  in  question. 

3.  Autosiatlon  is  judged,  by  the  researcher,  to  be 
feasible  within  time  and  resource  limitations. 

Research  Questions 

In  order  to  accw'mpllsh  the  research  objective,  several 
questions  were  asked  and  answered.  Those  questions  are 
listed  below: 
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1.  What  ratall-laval  aqulpaant  procaduraa  raault  In 
axtandad  training  timaa  or  unaocaptabla  arror  rataa? 

2.  Which,  if  any,  of  thoaa  procaduraa  fotind  to  raault  ^ 

in  axtandad  training  timaa  or  unaocaptabla  arror  rataa  can 

ba  automated  by  davaloping  microcomputar-baaad  application 

I 

programa? 

3.  Which,  if  any,  of  thoaa  procaduraa  found  to  ba 
faaaibla  for  automation  ara  already  in  the  procaaa  of  being 
automated  by  Air  Force  organizationa? 

4.  Which  databaaa  management  aoftmara  package  ia  moat 
appropriate  for  the  automation  of  aalactad  equipment 
managaBMnt  procaduraa? 

5.  How  can  thoaa  procaduraa  «Aioh  ara  automated  during 
thia  atudy  be  fielded  to  anaura  maximium  af f activanaaa  and 
efficiency  in  their  diatribution,  maintenance,  and 
Improvaatant? 

Scope  of  the  Study 

Thia  atudy  waa  limited  to  the  Air  Force  Loglatica 
Command  (AFLC) ,  the  Strategic  Air  Command  (SAC) ,  the  Air 
Training  Command  (ATC)  and  the  Air  Univaralty. 

Implementation  of  all  application  programa  daaignad  and 
written  during  thia  project  waa  accompllahad  at  the  Wright- 
Pat  taraon  Air  Force  Baaa  (WPAFB)  Baaa  Supply  organization. 

Thia  organization  waa  choaan  bacauaa  of  ita  proximity  to  the 
Air  Force  Inatituta  of  Technology  (AFIT) .  Although  raaourca 
conatrainta  allowed  implementation  in  only  one  organization  [ 

prior  to  publication  of  thia  atudy,  the  programa  produced 
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during  this  project  will  automnts  standard  Air  Fores  supply 
proosdurss  and  should  havs  univsrsal  application  to  all  Air 
Fores  bass  supply  organizations. 

Limitations 

0ns  of  ths  most  intsrssting  (and  ehal longing)  aspsets 
of  ths  Air  Fores  supply  systsm  is  that,  for  svsry  ruls  thsrs 
is  an  sxcsptlon.  For  svsry  proesdurs  which  is  ths  gsnsral 
ruls  for  managsmsnt  of  suppliss  or  squipmsnt,  thsrs  ars  soms 
itsms  which  ars  managsd  diffsrsntly.  For  sxampls, 
eommunieationa-slsctronies  squipmsnt  itsms  ars  managsd  using 
mors  rsstrietivs  proesdurss  than  moat  squipmsnt  bseauss 
thsss  itsms  of ton  contain  classifisd  tsohnology.  Thsrsfors, 
svsn  aftsr  ths  automation  of  sslsctsd  proesdurss,  thsrs  will 
still  bs  soms  squipmsnt  itsms  vrtiiah  must  eontinus  to  bs 
managsd  using  manual  proosdurss. 

A  ascond  limitation  of  this  rsssareh  is  that  all 
automation  sfforts  will  bs  mads  using  stand-alons  PCs  and 
microcomputsr-bassd ,  commsrcially  avallabls  databass 
managsmsnt  softwars.  Until  automatsd  intorfacss  with  othsr 
Air  Fores  computsr  aystsma  ars  avallabls,  a  fully  intsgratsd 
Dscision  Support  Systsm  (DSS)  will  not  bs  fsasibls. 

Assumptions 

Ths  following  assumptions  wars  mads  eonesrning  this 
rsssareh  sffort: 

1 .  Equipment  managsrs  intsrvlswsd  by  ths  rsasarehsr 
can  provide  apseifle  rsqulrsmsnts  for  application  programs 
to  automats  current  manual  proesdurss. 
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2.  Pot«ntiail  us«ra  of  application  prograoM  davalopad 


during  thia  study  hava  accaaa  to  an  Air  Fores  standard  saiall 
ooisputsr  (Zsnith  Z-248)  with  at  Isast  ons  floppy  disk  drivs, 
a  20  msgabyts  or  largsr  Winchsatsr  disk  drivs,  a  printsr, 
and  ths  softwars  nssdsd  to  run  thsss  programs. 

Contributions  of  ths  Rsssarch 

Ths  autoBiatlon  of  manual,  insffieisnt  proesdurss  in  ths 
Air  Fores  squipsMnt  managssMnt  proesss  is  long  ovsrdus 
(Xsndall,  1087).  In  ths  rsesnt  past,  much  attsntlon  has 
bssn  plaesd  on  isiproving  ths  sianagssMnt  of  Air  Fores  non- 
squlpmsnt  typs ,  sxpsndabls  itssM.  This  has  rssultsd  in 
trsBMindoxis  cost  rsduetions  and  sobm  significant  improvssMnts 
in  wsapon  system  availability  (Xsndall  st .  al . .  1887; 
Bsxroad,  1088).  Mo  effort  with  a  similar  scops  has  bssn 
Mds  to  correct  insf f ielsneiss  in  ths  management  of  Air 
Force  squipsMnt  itssM.  Most  squipMnt  management  proesdurss 
have  bssn  in  effect  since  ths  early  1000s  and  are  bas^d  on 
an  early  punch-card  accounting  system  or  have  no 
coBq>utsrizsd  support  at  all  (Kendall,  1087;  Nashring,  1088). 
Equipment  items  are  generally  expensive,  often  directly 
impact  weapon  system  availability,  and  are  managed  using 
procedures  that  were  in  effect  before  the  advent  of 
microcomputers.  Therefore,  it  is  reasonable  to  conclude 
that  (1)  the  equipment  awnageBtent  process  can  be 
significantly  improved  by  automating  selected  manual 
procedures,  and  (2)  improved  procedures  will  result  in  cost 
savings  and  improved  mission  support. 


Information  gathorod  In  an  analyala  of  currant 
aqulpmant  managamant  pollclas  and  proeaduraa  provldad  tha 
baaia  on  which  to  maka  daclalona  about  Important  ayatam 
Improvamanta .  Proeaduraa  found  to  contrlbuta  to  high  arror 
rataa  or  langthy  training  tlmaa  bacama  candldataa  for 
automation.  To  taat  tha  faaalblllty  of  automating  manual 
aqulpmant  managamant  proeaduraa,  application  programa  wara 


daalgnad,  wrlttan,  taatad,  and  Implamantad. 

Organization  of  tha  Raport 

Thla  raport  la  dlvldad  Into  flva  ehaptara.  Chaptar  I 
provldaa  tha  raadar  with  an  Introduction  to  tha  raaaarch 
problam,  a  Hat  of  raaaarch  quaatlona,  tha  llmltatlona  of 
tha  raaaarch,  and  aaaumptlona  upon  which  tha  raaaarch  la 
baaad.  Chaptar  II  baglna  with  an  Introduction  to  tha  Air 
Forca  aupply  ayatam  and  than  turna  to  a  dlacuaalon  of 


databaaaa  and  DBMS  concapta,  and  Introducaa  a  aavan  atap 
procaaa  for  daalgnlng  and  building  Information  ayatama. 
Chaptar  III  provldaa  tha  OMthodology  of  tha  raaaarch. 

Chaptar  IV  ravlawa  tha  flndlnga  of  tha  raaaarch,  provldaa 
anawara  to  tha  raaaarch  quaatlona,  and  dlacuaaaa  tha 
functionality  of  tha  proeaduraa  automatad  during  thla  atudy. 
Chaptar  V  provldaa  conclualona  and  offara  racommandatlona 
for  furthar  work  In  thla  araa.  For  tha  Intaraatad  raadar, 
tha  appandlcaa  contain  mora  datallad  Information  on  tha 
application  programa  davalopad  during  thla  atudy. 
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II .  Ravlaw  of  tho  Litoroturo 

Ovrviow 

Tho  purpoao  of  this  study  was  to  apply  pplnclplaa  of 
databaaa  managamant  to  tha  managamant  of  aqulpoMnt  Itama, 
with  tha  ultimata  goal  balng  a  raductlon  In  appon  pataa  and 
tpalnlng  tlmaa.  Thapafopa,  thla  ehaptap  ppovidaa  an 
Intpoductlon  to  tha  AlP  Fopca  supply  ayatam,  with  amphaala 
on  tha  managamant  of  aqulpmant  Itams,  and  than  tupna  to  a 
dlaouaaion  of  databasaa,  databaaa  managamant,  and 
Infopmatlon  ayatam  daalgn  tachnlquaa. 

Alp  Fopca  Supply  Svatam 

Tha  AlP  Fopca  supply  ayatam  has  two  achalona,  op 
lavals.  At  tha  wrttolaaala  laval,  AlP  Fopoa  Logistics  Command 
(AFLC)  papaonnal  datapmlna  paqulpamanta ,  ppapapa  budgat 
submlaalons,  and  ppocupa,  stopa,  and  dlstplbuta  Itama  fop 
thalp  Guatomaps,  tha  basa  supply  opganlzatlons  apound  tha 
wopld  (Raxpoad,  1087).  At  tha  patall  laval,  supply 
tachnlclans  datapmlna  paqulpamanta,  and  paqulsltlon,  atopa, 
and  dlatplbuta  Itama  fop  thalP  cuatomaps,  tha  opganlzatlons 
afflllatad  with  tha  baaa  (Rauwap,  1088). 

Each  achalon  of  tha  supply  ayatam  has  Its  own  pollclaa 
and  ppocadupas ,  but  thapa  apa  Impoptant  Intapfacaa  batwaan 
tha  two.  Autoowitad  Intapfacaa  connact  tha  patall-laval 
Gomputap  ayatam,  tha  SBSS,  and  aavapal  of  tha  hundpada  of 
AFLC  computap  syatama,  Including  tha  D032,  tha  D030 ,  tha 
D041,  and  tha  D082.  Tha  D032  computap  ayatam  handlas  tha 
dlstplbutlon  of  auppllaa  and  aqulpmant,  whlla  tha  othap 


thPAtt  ayat*ma  papfopm  paqulramanta  ooB4>utatlon  taaka  tor 
aqulpmant,  racovapabla,  and  Economic  Ordap  Quantity  Itama, 
poapactlvaly  (Oaatano,  1088).  Thopa  apa  othap  Intapfacaa 
batwaan  tha  two  lavala,  including  talaphona  contacta,  and 
wpittan  coppaapondanca .  Howavap,  thaaa  non-automatad 
intapfacaa  apa  uaad  only  whan  paquipamanta  at  tha  patail 
laval  apa  upgant  and  pamain  unaatiafiad. 


Tha  SBS3  la  tha  patail  laval  of  tha  Aip  Fopoa  aupply 
ayatam.  Uoat  AlP  Fopca  baaaa  hava  a  baaa  aupply 
opganization  haadad  by  a  chiaf  of  aupply,  and  dividad  into 
fiva  bpanchaa:  Ifanagamant  and  Syatama,  Opapatlona  Suppopt, 
Matapial  Managamant,  llatapial  Stopaga  and  Diatplbutlon ,  and 
Fuala  Managamant  (USAF.  1087:Ch  3,  41). 

Baaa  aupply  papaonnal  paquiaition  ppopapty  to  atock  in 
wapahouaaa  tor  futupa  uaa  and  to  laaua  to  cuatomapa  with 
Immadiata  naada  (Bauwap,  1988).  Oanapally,  thaaa 
paquiaitiona  will  ba  aant  to  ona  of  tha  fiva  Alp  Loglatica 
Cantapa  (ALCa)  opapatad  by  AFLC.  Othap  aoupcaa  of  aupply 
Includa  tha  Ganapal  Sapvlcaa  Admlniatpation  (GSA) ,  tha 
Dafanaa  Loglatica  Agancy  (DLA)  and  Local  Pupcbaaa  (LP) 
contpacta  (Wilaon,  1988a).  Each  itam  which  ia  liatad  tor 


atock  ia  givan  a  National  Stock  Humbap  (NSH) .  NSNa ,  and 
thaip  aaaociatad  data  alamanta,  apa  uaad  by  patail  laval 
aupply  tachniciana  to  pouta  paquiaitiona  to  tha  coppact 
aoupca  of  aupply,  chapga  tha  coppaot  coata  to  tha  cuatomap, 
ate.  An  iaq)OPtant  data  alamant  aaaociatad  with  avapy  itam 
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im  th*  thr««-dlgit  AlphantuMPio  Expandability, 

B*oov«rablllty ,  Bapalrablllty ,  Coat  Daalgnator  (EBBCD) , 
ottan  callad  tha  EBBC  Coda  (USAF,  1087:Cb  3,  114).  Thla 
coda  claaalllaa  aacta  Itam  according  to  expandability  and 
hlghaat  authorized  level  of  repair. 

Thera  are  three  major  typea  of  Itema  claaalfled  by  the 
EBBC  Code.  Economic  Order  Quantity  (EOQ)  Itema  are  thoae 
which  are  conaumed  In  uae  and  are  not  repaired  when  they  are 
no  longer  aervlceable.  Their  location  la  not  tracked  after 
they  are  laaued  to  the  cuatomer.  Exaaq>lea  Include  paint, 
rlveta,  and  wire.  Becoverable  Itema  differ  from  EOQ  Iteaui 
In  that  they  are  repaired  when  they  are  no  longer 
aervlceable.  Their  location  la  tracked  by  the  BBSS  ualng 
repair  cycle  and  due-ln  from  maintenance  detail  record^ 
Examplea  Include  aircraft  flap  actuatora.  Jet  engine 
modulea,  and  aircraft  antennaa.  The  third  type  of  Item  la 
equipment.  Unlike  EOQ  and  recoverable  itema,  equipment  doea 
not  become  part  of  a  larger  ayatem.  Equipment  Itema  are 
generally  high  coat  itema  which  do  not  loae  their  Identity 
when  In  uae,  and  they  uaually  are  repaired  when  they  break 
(Bloom,  1088).  Examplea  Include  bomb  loadera,  vehicles, 
computera ,  office  furniture,  and  parachutea.  When  equipment 
becomea  unaervlceable ,  it  can  be  repaired  or  aent  to  the 
Defenae  Beutl 1 izatlon  and  Marketing  Office  to  be  aalvaged. 
High  dollar  value  and  aenaltlve  equipment  Itema  are  tracked 
by  the  SBSS  with  apeclal  computer  recorda ,  called  In-uae 
detail  recorda,  kept  on  laaued  equipoMnt  Itema. 
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Eaulpmant  I  tern  ilanaitem^nt .  The  Equipment  Management 
Section  (EMS)  la  part  oi  the  Materiel  Management  Branch  and 
la  the  baae-level  organization  reaponalble  lor 
admlnlatratlon  of  the  Air  Force  Equipment  Management  Syatem 
(AFEMS)  t^lch: 

provldea  AF  equipment  ntanagera  with  uniform  waya  of 
handling  equipment  In  all  coauaanda.  It  apeclflea 
procedurea  for  virtually  all  aapecta  of  equipment 
handling  and  record  keeping  (USAF,  1087:Ch  22,  15). 

The  term  AFEMS.  then,  ref era  to  the  overall  management 
of  equipment  in  the  Air  Force.  There  are  two  other  levela 
of  management  In  AFEMS.  Each  Major  Conunand  (MAJCOM)  haa  a 
Conunand  Equipment  Manageoient  Office  (CEMO)  which  acta  aa  the 
next  level  of  management  above  the  EMS.  At  the  hlgheat 
level  of  authority  In  AFEMS  are  the  Materiel  Management 
organlzatlona  at  Headquartera  AFLC  and  the  five  Air 
Loglatlca  Centera  (ALCa)  (Kendall,  10B7;  Naehrlng,  1088). 
Peraonnel  at  all  levela  of  AFEMS  manage  Air  Force  equipment 
by  authorizing  equipment  laauea  and  maintaining  equlpotent 
accountability  recorda  (USAF,  1087:Ch  22,  15). 

Equipment  Itema  are  managed  In  a  different  manner  from 
EOQ  and  recoverable  Itema.  While  the  EOQ  and  recoverable 
Itema  are  automatically  ordered  for  atock  when  deatand 
factora  make  It  appropriate,  equipment  Itema  are  not 
generally  atocked  at  the  retail  level  (Johnaon,  1987). 
Inatead,  Inventory  Management  Speclallata  (IMSa)  decide.  In 
conjunction  with  weapon  ayatem  and  other  end  Item  managera , 
the  amount  of  each  equipment  Item  that  an  organization  la 
allowed  to  have  (Johnaon,  1987).  Each  kind  of  equipment. 
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and  tha  organ Izat Iona  alloiiad  to  hava  that  aqulpaant,  ara 
llatad  in  a  Tabla  of  Allowanoaa  (TA) .  TAa  ara  updatad 
ragularly  (tuiiially  at  laaat  annually,  but  aoaa  TAa  ara 
updatad  monthly),  and  ara  provldad  to  tha  EIIS  on  mloroflcha. 
TAa  ganarally  do  not  paatriot  allowaneaa  of  low  dollar  valua 
aqulpmant  itama  codad  with  an  Equlpmant  llanagamant  Coda  of 
1,  ao  thaaa  itama,  unlika  moat  aquipmant  itama,  ara  uaually 
not  maintainad  on  SBSS  accountability  racorda  aftar  iaaua 
(Kandall,  1987). 

EquipaMnt  cuatodiana  ara  full-tlma  workara  in  baaa 
organiaationa  (maintananca ,  paraonnal,  tranaportation ,  ate.) 
who  hava  baan  aaaignad  tha  additional  raaponaibility  of 
managing  aquipmant  iaauad  to  thair  organization.  Whila  all 
Air  Korea  amployaaa,  both  civilian  and  military,  ara 
raaponaibla  for  govarnmant  proparty  in  thair  poaaaaaion 
<DSAF,  1984:1),  aquipmant  cuatodiana  ara  liabla  for  loat, 
atolan,  or  daauigad  aquipmant  for  vdiich  thay  hava  takan 
cuatody  (USAF,  1987 :Ch  22.  44). 

If  an  organization  naada  an  aquipmant  itam,  a  raquazt 
for  authorization  of  that  itam  ia  zubmittad  by  tha  aquipmant 
cuatodian  to  tha  EyS.  If  tha  TA  containa  an  allowanca  of 
tha  aquipBMnt  for  tha  raquaating  organization,  tha  EMS  can 
approve  an  authorization  and  raquiaition  tha  aquipmant.  If 
no  allowanca  axiata,  tha  raquaat  aniat  ba  forwarded  to  tha 
higher  level  organizationa  for  review  and  approval  prior  to 
iaaua.  Equipment  itama  with  an  EMC  other  than  1  are  tracked 
by  tha  SBSS  uaing  in*uaa  dataila  (USAF,  1987:Ch  22,  13). 

Whan  an  aquipmant  itam  ia  iaauad  to  an  aquipaiant  cuatodian. 
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An  in-u«A  dAtall  la  crAAt«d  and  th*  lt*m  im  placed  on  that 
ouatomap’a  aquipaant  account.  In-iiaa  datalla  ara  uaad  to 
track  aach  cuatodlan’a  invantory  of  aqulpmant.  Whan  a 
changa  la  nada  to  tha  Invantory,  tha  cuatodian  aubmlta  tha 
nacaaaary  paparitopk  to  updata  tha  coaputar  pacorda . 

Kquipaant  lianaaaaant  Data.  Tha  major  docuaiantatlon 
which  ratall-laval  aqulpmant  tachnlelana  work  with  can  ba 
catagoplzad  by  Ita  orldlnator  (Randall,  1087).  Tha 
paragrapha  which  follow  dlacuaa  docuoMntatlon  orlglnatad  by 
tha  raquaatlng  organization,  tha  Managamant  and  Syatama 
Branch,  and  tha  BUS  Itaalf. 

Raouaatlna  Ordanlzatlon.  Thara  ara  t%*o  major 
typaa  of  docuaMntatlon  triilch  flow  from  tha  aqulpmant 
cuatodian  to  tha  BUS.  Tha  AF  Form  601  la  uaad  whan  an 
allowanca  In  tha  TA  la  lowar  than  tha  allowanca  tha 
raquaatlng  organization  naada.  Tha  AF  Form  2008  la  uaad 
vdian  tha  allowanca  In  tha  TA  la  graatar  than,  or  aqual  to, 
tha  allowanca  tha  raquaatlng  organization  naada. 

Tha  AF  Form  601  la  uaad  to  raquaat  aqulpatant  allowanca 
changaa .  Whan  approval  authority  for  an  allowanca  changa  la 
abova  tha  BUS  (l.a.,  CBMO  or  AFLC) ,  an  AF  Form  601  la 
aubmlttad  by  tha  raquaatlng  organization  through  tha  BUS  to 
tha  apppoprlata  authority  (USAF,  1087:Ch  22,  35).  Only 
aftar  tha  AF  Form  601  la  approvad  by  tha  propar  authority 
may  tha  Itam  ba  raqulaltlonad. 

Tha  AF  Form  2008  la  uaad  to  raquaat  aqulpmant 
authorization  changaa  arttlch  do  not  axcaad  tha  allowancaa 
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published  In  thtt  npppoprlat*  TA.  Th«  AF  Fora  2005  im 
flubalttttd  by  th«  p*qu«atlng  opgnnlxntlon  to  tho  SMS. 

A1  tomato  nodlo  to  tho  AF  Fora  2005  Includo  tolophono, 
radio,  and  walk-in  roquoato  (USAF,  1087:Ch  22,  32).  Civil 
Bnginooring  organixationo  aay  uoo  tho  AF  Fora  1445  inotoad 
of  tho  AF  Fora  2005. 

Manadoaont  and  Sy**^*"**  Branch .  Thoro  aro  also 
aany  doeiuMnta  irtiiah  flow  into  tho  SMS  froa  tho  Standard 
Baso  Supply  Systoa  ooaputor.  Thoso  roporta  aro  diatributod 
to  tho  SMS  by  tho  ManagoiMnt  and  Syatoaa  Branch  and  aro 
gonorally  uaod  to  roconcilo  SBSS  and  AFLC  eoaputor  rooorda 
with  rocorda  kopt  by  tho  SMS.  A  diacuaaion  of  thoao 
products  uaod  by  SMS  tochniciana  follows: 

Tho  D04,  Daily  Docuaont  Bogistor  (USAF,  lOSTtCh  5,  54). 
Tochniciana  auat  onauro  auditablo  docusMintation  is  provided 
to  tho  OociUBont  Control  Section. 

Tho  DOS,  Daily  Transaction  Rogiator  (USAF,  1087 :Ch  5, 

83) .  Tochniciana  auat  onauro  transactions  procoaaod  tho 
previous  workday  have  boon  accepted  by  tho  SBSS. 

Transactions  not  procoaaod  should  bo  rosoarchod  and 
procoaaod. 

Tho  D18,  Daily  Bquipaont  Transaction  Report  (USAF, 
1087:Ch  5,  124).  Tochniciana  auat  review  this  report  for 
input  errors  and  aako  noooaaary  corrections.  Since  tho 
inforaation  contained  in  thia  report  is  provided  to  AFLC  for 
reconciliation  of  wholesale  and  retail  oqulpaont  transaction 
records,  it  la  very  iaportant  for  tho  report  to  bo  correct. 

Tho  MOfi,  Vehicle  Asset  Listing  (USAF,  1087:Ch  5,  287). 
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T«obnlaiana  muat  ravlaw  tha  rapopt  for  appops  In  vahlola 
Invantoplaa  and  aaka  nacaaaapy  coppactlona. 

Tha  M14.  Stock  Numbap  Dipactopy  (USAF,  1087:Ch  5.  309). 
Taohnlclans  uaa  thla  papopt  in  tha  coupaa  of  ppocaaaing 
aquipmant  paquaata  to  datapmina.  aatong  othap  thlnga,  idiathar 
an  Itam  pacopd  alpaady  axlata  In  tha  SBSS  fop  a  paquaatad 
placa  of  aqulpaant. 

Tha  Q09,  Allotianca  Soupca  Coda  Llatlng  (USAF,  1087 :Ch 
8,  540).  Tachnlciana  uaa  thla  papopt  to  papfopm  Tablaa  of 
Allowaneaa  pavlatM,  to  anaupa  that  authoplzatlona  do  not 
axcaad  allovtancaa ,  cuatoBMPa  apa  uaing  tha  eoppaot  Allowanca 
Soupca  Codaa  (ASCa) ,  and  idantify  aquipmant  axoaaaaa  hald 
undap  A3C  000.  Sinca  TAa  apa  continually  changad  and 
updatad,  it  la  coauaon  fop  a  cuatodian  to  loaa  an  allowanca 
fop  a  placa  of  aquipnant.  Whan  a  ppoblaa  la  found,  SMS 
tachnlciana  muat  dipact  tupn^in  of  axcaaaaa  op  hava  tha 
cuatodian  aubmit  an  Aip  Fopca  Fopm  601  to  changa  tha 
allowancaa . 

Tha  QIO,  Bqulpmant  Out-of -Balanca  Liatlng  (USAF. 

1087:Ch  5,  856).  Thla  papopt  notlfiaa  tha  EIIS  that  tha 
qxiantlty  on  opdap  op  in  uaa  ia  diffapant  fpom  tha  quantity 
authoplzad.  Tachnlciana  muat  paviaw  fop  out-of -balanea 
antPiaa  and  taka  apppoppiata  action  to  hava  aquipmant 
cuatodiana  tupn-in  op  Juatify  aituationa  irttapa 
authoplzatlona  axcaad  allowancaa. 

Tha  R14,  Cuatodian  Authoplzation/Cuatody  Racaipt 
Liatlng  (CA/CRL)  (USAF,  1087:Ch  6,  218).  Thla  papopt  ia 
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for«nird«d  to  tho  opppoprlato  oqulpaont  eiiotodlon. 

Cuotodlona  roooncllo  thoir  Invontory  vaordm  with  aotuol 
invontopy,  olgn  th*  Hating,  ond  potiipn  to  tho  BMS.  If 
dlaopoponoloa  opo  found,  opppoppioto  action  muat  bo  takon 
(o.g.,  oqulpmont  may  havo  boon  phyalcally  tpanafoppod  to 
anothop  account,  daaafod,  otc. ,  and  papopwopk  miat  bo  fllod 
to  pofloct  tho  changoa) .  Tho  B14  with  cuatodian’a  aignatupo 
ia  filod  in  tho  EkB. 

g/jiHp«i^nt  ^ Soction .  Finally,  thopo  apo 
a  niuBbop  of  doetunonta  uaod  by  oquipmont  managoaont 
tochniciana  trtiich  apo  cpoatod  in  tho  BMS  and  apo  uaod  to 
aanago  tho  flow  of  doctuoontation  thpough  tho  aoction,  and  to 
incpoaao  tho  apood  and  accupacy  of  tho  ppocoaaing  of 
c\iatoaop  poquoata. 

Tho  AiP  Fopco  Fopa  000,  Bquipaont  Contpol  Bogiatop,  ia 
uaod  by  tho  BIG  to  tpaok  poquoata  fop  authopization  op 
allowaneo  changoa  by  oquipaont  cuatodiana  (USAF,  1087 :Cb  22, 
41) .  Tho  fopa  ppovidoa  tho  BMS  with  tho  capability  to 
onaupo  that  all  poquoata  aPO  handlod  within  poqulpod 
tiaof paaoa . 

Tho  Conf igupation  Data/Boauam  Filo  ia  uaod  to  tpack  tho 
chapactopiatica  of  baao  opganizationa  to  inaupo  coppoct 
authopizationa  fop  oquipaont  aPO  ppocoaaod  (USAF,  1087 :Ch 
22,  34).  Infopaation  on  thia  fopa  would  includo  auch  data 
aa  tho  nuabop  of  popaonnol  authoplzod,  and  a  atunaiapy  of  tho 
opganization* a  aiaaion.  Tho  contont  and  fopaat  of  thia  fopa 
apo  dotopainod  by  oach  aajop  coaunand. 

Apppovod  AiP  Fopco  Fopaa  001  apo  poquipod  to  bo  kopt  in 


%  fll«  in  ondnr  to  mnintnin  on  nudlt  trail  of  oquipaont 
tranaaotiona .  A  cartifiad  liat  of  thaaa  dociiaanta  aay  ba 
uaad  by  EMS  taohnioiana  aa  a  aubatituta  for  a  copy  of  aach 
individual  fora  (USAF,  19a7:Ch  22,  40). 

Tha  SquipoMnt  Raviaw  and  Authorization  Activity  (EBAA) 
liat  of  tachnical  advlaora  ia  a  liat  of  axparta  in  tha 
aubjact  araaa  partaining  to  aquipaant  (DSAF,  1087 :Ch  22, 

27) .  For  axaatpla,  tha  Baaa  Copiar  Monitor  in  tha  Baaa 
Adainiatration  Offica  wiould  ba  on  thia  Hat,  aa  would  ona  or 
aora  data  autoaation  tachniciana  faailiar  with  tha  Air  Forca 
aaall  coaputar  contract.  Thaaa  paopla  would  ba  cal lad  on  to 
coordinata  aquipaant  raquaata  partaining  to  thair  araa  of 
raaponaibility  and  axpartiaa.  Tha  contant  and  foraat  of 
thia  liat  ara  locally  datarainad  by  aach  EMS. 

Tha  ChallanMa.  Equipaant  aanagaaant  at  tha  ratal 1 
laval  haa  alwaya  baan  challanglng  bacauaa  thara  ara  aavaral 
dozan  aajor  TAa,  thara  ia  a  larga  body  of  writtan  policy 
(AFM  87-1,  VoluaM  II,  Part  Two,  Chaptar  22  alona  la  3S8 
pagaa) ,  and  much  of  tha  work  antalla  raviawing  and  updating 
papar  or  computar  pxinch  card  filaa.  Equlpmant  managamant 
haa  bacoma  aignif icantly  mora  difficult  in  thia  dacada 
bacauaa  tha  pravaillng  philoaophy  of  aanior  aupply  managara 
haa  baan  to  bring  cartain  aquipoMnt  itama,  which  had 
pravloualy  baan  managad  by  othar  organizationa ,  vindar  tha 
umbralla  of  tha  EMS  (Rauwar,  1088;  Wllaon,  1088).  Examplaa 
includa  Spacial  Purpoaa  Racovarablaa  Authorizad  Malntananca 
(SPRAM) ,  Communicatlona-Blactronica  Authorization  Program 


(CAP)  •quipMfit,  «nd  amall  computara  and  ivopd  ppocaaalng 
aqulpBMnt  (Wllaon,  1088). 


Tha  atata  of  tha  art  In  oomputar  hapdwapa  and  aoftwara 
la  changing  and  laqppovlng  vary  papldly.  Equlpatant  managara 
will  avantually  raap  tha  banaflta  of  many  of  tha 
laq>povamanta  wdileh  hava  racantly  baan  mada,  op  apa  In  tha 
offing  (Bloom,  1088;  Handing,  1088a).  Thapa  la  a  gpaat  daal 
of  wopk  balng  dona  by  tha  Alp  Popca  to  laqtpova  tha 
capabllltlaa  of  IMSa  managing  aqulpmant  at  tha  wholaaala 
laval,  and  to  Imppova  tha  computaplzad  Intapfaoaa  batwaan 
tha  AFLC  ayataaM  and  tha  SBSS.  Soma  of  tha  Imprbvamanta  to 
tha  aqulpmant  amnagaamnt  ppocaaa  vriilch  ana  contamplatad 
Includa  tha  following  (Handing,  1088a;  Handing,  1088b); 

(1)  Eliminating  mlcnofleha  aa  a  madlum  fon  TAa  and,  Inataad, 
ppovldlng  TAa  on  compact  dlaka  dinactly  naadabla  Into  tha 
SBSS; 

(2)  Stpuctuplng  TAa  Into  nalatlonal  databaaaa  ao  that  any 
Infonmatlon  a  TA  contalna  will  ba  avallabla  to  aqulpmant 
managaaMnt  tachnlclana  quickly  and  accunataly; 

(3)  Pnovldlng  pnocadunaa  on-llna  nathap  than  on  papan ,  and 
Indaxlng  thoaa  pnocadunaa  ao  that  avan  Inaxpaniancad 
aqulpmant  managaaMnt  tachnlclana  will  ba  abla  to  find  tha 
apppopplata  InfopBMtlon  aa^ng  tha  hundnada  of  pagaa  of 
dlnactlvaa ; 

(4)  AutoaMtlng  coaamunlcatlon  batwaan  tha  thnaa  lavala  of 
AFEIIS  and  allmlnatlng  tha  auilllng  of  papanwonk  and  tha 
naaultlng  dalaya;  and 


(8)  Linking  mlonocomputana  dinactly  to  tha  SBSS  computan  and 


2 


ppovldini  ap«alAllx«d  softivar*  fop  tpanafap  of  data  batmian 
tha  two. 

UnfOPtunataly ,  awaaplng  Imppovamants  lika  thoaa  llatad 
paqulpa  a  gpaat  daal  of  monay,  manpowap ,  and  tlma  to 
cowplata.  In  fact,  moat  of  tha  Imppovamanta  11a tad  abova 
apa  not  axpaotad  to  ba  lo^laaMntad  until  1093  and  bayond 
(Hapdlng,  lOSSa;  Hapding,  1988b).  Spacialiaad  hapdwapa  and 
aoftwapa  laq>povaBMnta  apa  naadad  to  paduoa  tha  papapwopk, 
accalapata  tha  authopizatlon  paviaw  and  computap  Input 
ppooaaaaa ,  and  ppovlda  aophiatloatad  appop-ehacklng 
capabllltlaa .  Until  aqulpaMnt  managapa  apa  ppovldad  with 
thaaa  naw  oapabllltlaa ,  thay  muat  daal  with  day-to-day 
ppoblaaui  by  Inopaaaing  tha  afflclanoy  of  thalp  opapatlona. 
Thla  thay  can  do  by  thopoughly  tpalnlng  thalP  paopla  and  by 
Inatltuting  ayatam  Imppovamanta  which  thay  hava  tha 
capability  and  authoplty  to  maka  (Xandall,  1088;  Handing, 
1988c)  .  Whila  aqulpaMnt  aaanagapa  do  not  hava  tha  authoPlty 
to  automata  tha  intapfacaa  batwaan  tha  PCa  thay  hava  in 
thalp  offlcaa  and  tha  SBSS  aaainfpaaM,  thay  aaay  usa  thaip  PCa 
to  ia^ppova  any  patall-laval  aqulpaMnt  aaanagaaMnt  ppoeadupa 
(Xandall,  1088;  Handing, *  1988c). 


Trig  ?  r  imia 


Databaaaa  accomplish  at  laaat  six  functions  which  allow 
coaq>utap  usana  to  antan,  viaw,  adit,  and  dalata  data  aaona 
affaotivaly,  afflciantly,  and  safaly  than  bafona  thaiP 
davalopaMnt.  Thay  (1)  allow  Infonmatlon  to  ba  antapad  and 
atonad  afflciantly,  (2)  pnotact  data  with  appon-chacking  and 
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aonaiatttnoy-oh«oklng  functions ,  <3)  protect  egslnat 
unautboplzod  eoeeas  to  the  data.  (4)  raduoa  tha  impact  of 
computer  aoftviare  errora,  (5)  allow  the  data  to  b« 

BMlntalned  Independent  of  the  application  prograiaa  which  uae 
the  data,  and  (0)  maintain  current  data  in  a  central 
location  ao  application  programs  can  extract  and  uae  the 
data  (Banet,  e^  1^:  IfifiS.S). 

Database  management  essentially  concerns  six  tasks 
which  either  change  the  contents  of  the  database  or  provide 
information  to  the  user.  These  tasks  are  (1)  adding  data  to 
the  database,  (2)  editing  data  already  in  the  database,  (3) 
deleting  data  from  the  database,  (4)  sorting  the  database 
according  to  user  needs,  (S)  searching  the  database  for 
specific  information  required  by  the  user,  and  (0)  printing 
Information  contained  in  the  database  (Simpson:  1080,5). 

Data  are  stored  in  a  dat^oase  in  records.  Becords ,  in 
turn,  are  Mde  up  of  a  series  of  fields  (Tsichritzis  and 
Lochovsky:  1077,21).  For  example,  the  SBSS  contains  many 
different  types  of  records  including  item  records  and  detail 
records.  A  single  item  record  in  the  SBSS  consists  of  all 
of  the  basic  data  pertaining  to  a  stocklisted  item  of  supply 
or  equipment.  These  data  (VSM,  BRRCD,  Unit  Price,  Unit  of 
Issue,  Warehouse  Location,  etc.)  are  contained  in  fields 
within  the  record. 

There  are  three  types  of  DBMSs  generally  available 
(Elbra:  1082,25).  These  are  the  hierarchical,  network,  and 
relational  models. 
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An  •xampla  ot  a  hieFarchlcal  model  would  be  a  family 


tree  conaiating  of  mothepa  and  daughtera  only.  Each 
daughter  can  have  only  one  mother,  yet  every  mother  can  have 
many  daughtera.  A  hierarchical  ayatem  worka  the  aame  way  in 
that  each  record  can  only  be  linked  to  one  ‘parent*  record, 
but  it  can  be  linked  to  many  ‘child*  recorda .  An  Important 
diaadvantage  to  the  hierarchical  model,  which  makea  it 
uaeful  in  a  limited  number  of  altuationa,  la  that  horizontal 
relationahipa  are  not  poaaible  (Elbra:  1962,25).  In  other 
worda ,  while  the  vertical  relationahipa  between  parent  and 
child  recorda  are  contained  in  the  databaae,  there  are  no 
relationahipa  between  recorda  which  are  not  parent  and 
child. 

While  the  hierarchical  model  allowa  only  one  parent 
record  for  each  child,  the  network  model  doea  not  have  thia 
reatriction  (Elbra:  1982,33).  The  network  model,  unlike  the 
hierarchical  model,  allowa  complex  relationahipa  between 
recorda  to  be  defined.  Unfortunately,  due  to  Ita 
complexity,  the  coata  of  the  network  model  in  terma  of  dlak 
apace,  computer  time,  and  programmer  time  are  much  greater 
than  for  the  other  modela  (Elbra:  1962,35). 

The  moat  common  type  of  databaae  atructure  ia  the 
relational  model  (Harding,  1988b).  The  relational  model  ia 
baaed  on  the  concept  of  flat-fllea  diacuaaed  below.  In 
relational  databaaea,  theae  flat-filea  are  called  tablea. 
Each  record  within  a  table  ia  linked  to  the  other  recorda  in 
that  table  by  virtue  of  the  fact  that  they  contain  the  aame 
flelda.  Similarly,  recorda  atored  in  different  tablea  are 
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linked  by  coaaon  fi«lda  callad  k«y  flalda  <Blbra:  1082,44) . 
Fop  oxoBi^lo,  In  tho  3BSS,  itom  roeorda  apo  contalnad  in  ona 
tabla  and  In-uaa  dotal 1  pocopda  apo  contalnod  in  anothop 
tablo.  Thoao  pocopda  aPo  linkod  by  tho  koy  Hold,  tho  HSH. 
Rolational  databaaoa  apo  oaally  changod  and  updatod,  but 
thoy  poqulpo  that  aono  data  (tho  koy  flolda)  bo  kopt  in  mopo 
than  ono  plaao  In  tho  ayatom  (Blbpa:  1082,46). 

Databaaoa  vdilch  aPo  logically  opganlzod  Into  t«»o- 
dlmonalonal  tabloa  whopo  oaoh  pow  la  a  dlffopont  pocopd  and 
oaoh  coluam  la  a  dlffopont  flold  apo  eallod  llat~flloa 
(TalchPltzla  and  Lochovaky:  1077,21).  Tho  SBSS  databaaoa 
uao  a  flat-fllo  atpuctupo  (Handing:  1088c}.  Tho  flat-fllo 
atpuctupo  la  oaay  fop  moat  pooplo  to  iindopatand  bocauao  wo 
oncountop  oxamploa  of  thla  atPuctupo  of  ton.  Bank 
atatomonta.,  caah  poglatop  pocolpta,  and  addpoaa  booka  aro 
all  oxamploa  of  flat*flloa. 

Ppopoply  atpuctupod  databaaoa  PoqulPo  tho  data  to  be  in 
third  normal  form  (3NF)  (Pratt,  1088:73.  Databaaoa  which 
aro  In  31IF  havo  all  data  olomonta  which  aro  not  keya 
functionally  Indopondont  of  each  other  and  dependent  on  the 
primary  key  (Martin,  1083:141).  For  data  to  be  placed  In 
SHF,  It  muat  be  proceaaed  through  the  atepa  Hated  below 
(Martin,  1083:141) 

1.  Docompoao  all  non-flat  data  atructuroa  Into  two- 
dlmonalonal  rocorda . 

2.  For  rocorda  whoao  koya  havo  more  than  ono  data 
Item,  onauro  that  all  other  data  Itoaia  aro  dependent 
on  tho  whole  koy.  Split  tho  rocorda.  If  nocoaaary, 
to  achieve  thla. 

2.  Remove  all  tranaltlvo  dopondoncloa  [data 
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which  ar«  not  koya  but  which  identify  othor 
data  olamanta]  aplitting  tha  racopd,  if  nacaaaapy, 
to  achiava  thia. 

Information  Daaian 

Thara  ara  many  articlaa  and  booka  which  covar  tha 
daaign  of  inforatation  ayatama.  Each  of  tham  dividaa  thia 
daaign  procaaa  into  a  numbar  of  atagaa.  Tha  atagaa  outlina 
a  aariaa  of  taaka  «diioh  muat  ba  con^latad  in  ordar  to 
auecaaafully  daaign,  davalop,  implamant,  and  maintain  a 
larga  information  ayatam.  Tha  aama  tachniquaa  which  apply 
to  a  larga-acala  managamant  information  ayatam  (MIS) 
projact  will  alao  apply,  to  a  graat  dagraa,  to  a  amallar 
projact  hoatad  on  a  microcomputar .  Tha  atagaa  of  tha 
ayataaia  davalopmant  lifa  cycla  ara  not  diacrata.  Many  of 
tha  taaka  containad  within  aach  ataga  ara  rapaatad 
throughout  tha  lifa  cycla  of  an  information  ayatam 
davalopmant  affort,  and  ona  ataga  doaa  not  hava  to  ba 
complata  bafora  tha  naxt  ataga  bagina.  Ona  axampla  of  tha 
atagaa  of  a  ayatama  davalopmant  Ufa  cycla  ia  llatad  in 
Tabla  1. 
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TAbltt  1 


Information  Syatoma  Dovolopmont  Stagoa  (Sann,  1084:18) 


(1)  Prallmlnary  Invaatlgatlon 

(2)  Datarminatlon  of  Haquiramanta 

(3)  Davalopmant  of  a  Prototypa  Syatam 

(4)  Daaign  of  tha  Syatam 

(5)  Davalopmant  of  tha  Softwara 

(6)  Syatama  Taatlng 

(7)  Implamantatlon 


Prallmlnary  Invaatiaatlon.  A  prallmlnary  Invaatlgatlon 
Incltidaa  clarification  of  project  raquaa  ta ,  atudlaa  to 
datarmlna  tachnlcal ,  economic,  and  operational  faaalblllty 
of  tha  project,  and  approval  of  tha  project  raquaat  by  thoaa 
In  authority  (Sann,  1084:18-18).  In  tha  Air  Force,  thla 
ataga  Includaa  maatlnga  between  ayatam  daalgnara  and  tha 
future  ayatam  uaara  to  dlacuaa  project  objactlvaa,  tha 
preparation  of  tha  economic  analyala,  and  tha  approval  of 
tha  Secretary  of  Dafanaa,  Secretary  of  tha  Air  Force,  or  a 
lower  level  coauaandar ,  depending  on  tha  dollar  value  of  tha 
project  (Flaaar,  1087)^ 

Determination  of  Raculramanta .  Determination  of 
requlrementa  calla  for  an  analyala  of  how  work  which  the  new 
Information  ayatam  will  accompllah  la  currently  done  (Sann, 
1084:20).  Thla  la  accompllahed  by  either  (1)  examining  the 
orlglna  and  uaea  of  data  In  the  ayatam,  or  (2)  analyzing 
operational  goala  and  declalon  making  (Sann,  1084:111).  In 
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addition,  during  this  atago  an  inquiry  is  eonduotad  into  how 
tha  currant  systam  works,  and  what  improvaoMnts  naad  to  ba 
nada.  During  this  stags,  a  data  dictionary  which  conqtlataly 
dafinas  all  data  alamants  in  tha  aystaoi  should  ba  craatad. 

In  tha  Air  Porca,  this  stags  culminatas  in  tha  publication 
of  tha  Functional  Dascrlptlon  (FD) .  Tha  FD  glvas  soma 
backgroiind  on  tha  currant  systaw,  and  axplains  what  tha  naw 
systam  should  ba  oapabla  of  doing  (Johnson,  1087).  To 
complata  tha  raquirasMnts  datarmination  stags  prior  to 
automating  portions,  of  tha  ratail-laval  aquipmant  managamant 
procass,  an  analysis  of  currant  systam  waaknassas  is  naadad 
(Flasar,  1087). 

Davalonmant  of  a  Prototvpa  Svstam.  Systam  prototyping 
is  ustially  accomplishad  only  on  vary  difficult,  costly, 
high-risk  projects.  In  thasa  cases,  a  complata  description 
of  tha  system  may  not  ba  possible  to  develop.  To  reduce 
risk  and  costs  of  systam  failure,  a  systam  can  ba  prototyped 
to  accomplish  sobm  of  tha  ntost  important  functions  tha  final 
system  will  naad  to  perform  (Sann,  1984:20-21).  Tha  Air 
Force  has  taken  this  approach  for  most  of  its  large-scale 
Inforouition  systems  efforts.  Qanarally,  tha  Air  Force 
accomplishes  systam  prototyping  by  awarding  contracts  for 
systam  development  to  competing  contractors  (Flasar,  1667). 
Each  contractor  prototypes  a  system  according  to  tha  system 
raqulraBMnts  documantad  in  tha  FD.  After  an  evaluation,  tha 
Air  Force  than  chooses  tha  contractor  judged  to  have 
developed  tha  ’bast’  prototype. 
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D««iMn  thm  Sy»t#m.  During  th«  ayat^m  daalgn  affort, 
analyata  taka  tha  Information  gatharad  during  tha 
raquiramanta  datarmination  ataga  and  build  a  ayatam  which 
ahowa  tha  logical  flow  of  information  through  that  ayatam 
(Sann,  1084:21).  Hara ,  tha  logical  or  inf ormation-laval 
daalgn  of  tha  databaaaa  ia  accoa^liahad.  Tha  uaar  viaw  of 
tha  databaaaa  la  rapraaantad  aa  a  collaction  of  tablaa,  data 
ara  normallzad,  and  kay  fialda  ara  dafinad  (Pratt,  1088:04) . 
Logical  databaaa  daalgn  raquiraa  davalopmant  of  a  databaaa 
atructura  aa  htman  balnga  viaw  it,  not  aa  tha  coBiputar  will 
viaw  it.  Intarnal  and  axtarnal  Intarfacaa  ahould  alao  ba 
daalgnad  at  thla  point.  Whan  an  information  ayatam  ia  baing 
daaignad  for  Air  Forca  uaa,  a  doeumant  cal lad  tha  Syatam 
Spacif Ication  (SS)  la  publiahad  aftar  tha  PD  haa  baan 
approvad  (Flaaar.  1087;  Johnaon,  1087).  Tha  SS  documanta 
tha  logical  daalgn  of  tha  naw  information  ayatam. 

Davalopmant  of  tha  Sof twara.  Softwara  davalopmant  la 
tha  tranalation  of  tha  ayatam  raquiramanta  docuoMntad  during 
tha  ayatam  daalgn  ataga  into  computar  coda  (Sann,  1084:21- 
22) .  In  Air  Forca  information  ayatama  davalopmant  af forta 
tha  naw  ayatam  la  codad  by  programmara  ualng  both  tha  SS  and 
input  from  tha  ayatam  daaignara  who  wrota  tha  SS  (Flaaar, 
1087) . 

9ym*.mwkm  Taatind.  Aftar  tha  aoftwara  ia  davalopad,  it 
muat  ba  taatad  to  anaura  it  (1)  doaa  what  it  waa  daalgnad  to 
do,  and  (2)  haa  no  unaccaptabla  arrora  (Sann,  1084:22).  If 
a  ayatam  doaa  not  do  what  it  waa  daalgnad  to  do  thara  hava 
baan  aoma  miacosimunicatlona  batwaan  tha  and-uaara ,  ayatam 
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And  •oftwAPA  dAVAlopAPA.  In  this  casa,  thA 
AyAtAB  will  hAVA  to  bA  ChAngAd  op  ACPAppAd.  ThiA  lA  VAPy 
coAtly  And  pAPtlculAPly  unfoptunAtA  bACAUAA  It  oAn  bA 
AVOldAd  If  thA  PAqulPABAntA  dAtAPmlnAtlon  And  AyAtAB  dAAlgn 
AtAgAA  APA  donA  ppopAPly.  In  infoPBAtlon  myafmm 
dAVAlopAMnt,  It  lA  UnlikAly  thAt  thA  AOftWAPA  will  WOPk 
pAPfACtly.  SoftWAPA  lA  AlWAyA  In  A  AtAtA  Of  dAVAlopBAHt  And 
ohAngA  And  auAt  bA  BAlntAlnAd  thpoughout  thA  pAPiod  of  tlBA 
it  lA  UAAd.  ThAPAfOPA.  An  InfOPBAtlOn  AyAtAB  will  UAUAlly 
bA  laqplABAntAd  AVAn  If  Binop  appopa  found  duplng  toAtlng 
hAVA  not  yot  boon  coppActAd.  MaJop  ppoblABA  will  uAUAlly 
poAtponA  iBplAAMntAtlon  until  thAy  apa  copPActAd.  ThA 
tAAtlng  AtAgA  In  thA  Alp  Popoa  1a  Accon^llAhAd  by  aavapaI 
gPOUpA  of  pAOplA  (FIaAAP,  1087).  ThA  AOftWAPA  dAVAlopAP 
Will  tAAt  thA  AyAtAB  tO  AllBlnAtA  AA  BAny  APPOPA  AA  pOAAlblA 
bAfOPA  OUtAldA  OPgAnlZAtlOnA  UAA  It.  ThA  And'UAAPA  will 
OftAn  tAAt  thA  AyAtAB,  AApAClAlly  thA  UAAP  IntAPfACA. 

SyAtAB  dAAlgnAPA  APA  PAApOHAlblA  tO  VAlldAtA  thAt  thA 
AOftWAPA  dOAA  WhAt  It  WAA  dAAlgnAd  tO  dO ,  And  VAPlfy  thAt 
thA  AyAtAB  1a  ACCUPAtA.  ThA  VAlldAtlOn  AffOPt  Will  OftAn  bA 
donA  by  pAPfopBlng  IdAntlcAl  opAPAtlonA  on  both  thA  nAw 
InfoPBAtlon  AyAtAB  And  thA  cupPAnt  InfoPBAtlon  AyAtAB  (If 
onA  AXlAtA) .  ThA  VAPlflCAtlon  poptlon  of  thA  tAAtlng 
PAqulPAA  docuAMntAtlon  of  All  APPOPA  found  with  An 
AAAAAABont  Of  thA  iBpOPtAHOA  of  thOAA  APPOPA. 

iBplABAntAtlon.  AftAP  vAlldAtlon  And  VAPlf ICAtlon ,  thA 
AyAtAB  lA  PAAdy  to  bA  iBplABAHtAd.  HowAVAP ,  It  lA  unllkAly 
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tb*t  th«  ayat«0i  will  work  papfaetly.  Tha  aoftwara  will  n««d 
to  ba  BKalntalnad  ao  IwppovaaMnta  can  ba  mada  to  tba  ayatam 
and  appopa  can  ba  coppactad  aa  tbay  apa  diacovapad. 

Suwaiapy 

A  bpoad  ovapvlaw  of  tba  Aip  Fopca  patail-laval 
aqulpmant  managawant  ayataw,  and  a  dlacuaalon  of  a  watbod  of 
Infopmation  ayatawa  daalgn  and  davalopmant  hava  baan 
ppovidad  in  tbla  ebaptap. 

Squlpmant  managamant  la  a  complleatad  ppocaaa  wblch 
paquipaa  apaclallzad  tpalnlng  to  ppopaply,  and  In  a  tlmaly 
mannap,  papfopm  tba  adaUnlatPatlva  taaka  paquipad.  Thapa 
apa  thpaa  majop  contplbutopa  to  tba  adalnlatpatlva  wopkload 
at  tba  patall'laval  of  aqulpoMnt  managamant.  Tbaaa  apa  tba 
aqulpmant  cuatodlan,  tba  SBS3,  and  tba  BMS  Itsalf. 

Finally,  ualng  a  fopmal  matbod  of  Infopmation  ayatama 
daalgn.  Ilka  tba  aavan-atap  aiatbod  dlacuaaad  In  tbla 
ebaptap,  wa  can  axpact  to  build  a  ayatam  which  maata  tha 
naada  of  patail-laval  aqulpoMint  managapa  and  la  both  valid 
and  pallabla. 
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III.  itothodolo 


Ovpviair 

Tb«  AcaomplishBMnt  of  tho  rofloarch  objoctlvoa  followod 
a  aoplea  of  atopa  baaad  on  Sann’a  atagaa  of  analyala  and 
daaign  of  infornatlon  ayatama.  Soim  of  th#  atagaa  «wra  nor 
appllcabla  than  othara  to  thia  projact,  ao  thara  waa  aora 
anphaala  in  thoaa  araaa.  A  tlaatabla  of  tha  atagaa  in  tha 
paaaapch  ppocaaa  la  ahotm  in  Tabla  2. 

Tabla  2 

Raaaapoh  TiaMtabla 


Praliainapy  Invaatigation 
Datapaination  of  Baquipaaanta 
DavalopBMint  of  a  Ppototypa  Syataa 
Daaign  of  tha  Syataaa 
Davalopaant  of  tha  Softwapa 
Syataaa  Taating 
Implaaantation 


Ineluaiva  Dataa 

Mov  87  -  Fab  88 

Dae  87  -  May  88 
» 

Hot  Appllcabla 
May  88  -  Jul  88 
May  88  -  Aug  88 
Jun  88  -  Aug  88 
Aug  88 


Ppaliainapv  Invaatidation 

DviPlng  thia  ataga,  a  paviaw  of  tha  avallabla  litapatupa 
on  aquipaant  managaiMnt  and  Infopaation  ayataaa  daaign  waa 
oonductad.  Litapatupa  paviawad  Includad  Alp  Fopoa  manual a , 
inapaction  papopta,  ataff  aaaiatanoa  viait  papopta, 
aanagamant  and  logiatica  Joupnal  aptlelaa,  unpubllahad 
papapa  and  bPiafinga,  and  aptlelaa  and  booka  on  databaaa 


■anAgAiMnt,  MyMt0ma  d*aign,  and  of f- tha-ahalf  DBMSs  for 
mlcrocomputsps . 

Dstsrmi nation  of  Bsauirsmsnts 

Whan  this  projsct  bagan.  tha  ganaral  symptoms  of  high 
arrop  patas  and  lonj  tpalnlng  tlstas  in  tha  BMS  had  baan 
Idantlfiad.  Duping  tha  Datapmination  of  Raquipamants  phasa 
of  tha  ppojact,  tha  pasaapch  foousad  on  policias  and 
ppooadupas  tdiich  managaps  and  tachnicians  baliavad  tvapa 
causing  thosa  symptoms.  Data  gathapad  fpom  unstpuctupad 
intapviatvs  ivapa  analyzad.  Intapviaw  quastions  wapa 
davalopad  using  tha  guidalinas  sat  out  by  Sudman  and 
Bpadbupn  in  thaip  book  Ask ins  Quastions ;  A  Ppactieal  Quids 
to  Quastionnaipa  Dasisn.  Intapviaws  wapa  conductad  with 
aquipmant  managamant  tachnicians  assigned  to  tha  WPAPB  Bass 
Supply  opganizations  and  managaps  at  all  thpaa  lavals  of 
AFEMS:  Basa  Supply,  tha  AFLC,  SAC.  and  AU  CEMOs ,  and 

AFLC/MMMA.  Thasa  intapviaws,  combined  with  tha  analysis  of 
aquipmant  managamant  documentation  accomplished  duping  tha 
Ppaliminapy  Investigation  stage,  ppovidad  tha  infopmation 
needed  to  answap  tha  pasaapch  quastions. 

Davalopmant  of  a  Ppototypa  System 

Since  tha  application  ppogpams  davalopad  duping  this 
affopt  have  few  axtapnal  intapfacas  and  wane  wpittan  fop 
stand  alone  use,  ppototypa  systems  in  tha  stpictast  sense 
wapa  not  davalopad.  Instead,  duping  tha  design  and 
davalopmant  stages,  savspal  of  tha  intended  usaps  of  tha 
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ayatABM  wopkad  with  tha  ayatam  daalgnar  to  anaupa  aach 
ppo^paai  sat  tha  uaapa  ’  naada. 

Daaidn  of  tha  Syatam 

Tha  ayataaw  daalgn  affopta  Includad  cloaa  coopdination 
with  aavapal  aqulpnant  manajamant  tachnlclana  at  WPAFB  Baaa 
Supply  and  tha  CElfO  taam  laadap  in  tha  AFLC  Dlpactopata  of 
Supply,  AFLC/DSS.  Duplng  thla  phaaa  of  tha  ppojact, 
daclalona  concapning  paqulpad  data  alamanta,  nopinal ization 
of  tha  data,  axtapnal  Intapfacaa,  and  output  ppoducta  wapa 
mada.  Aftap  datalla  of  aach  syatam  wapa  wopkad  out,  data 
flow  dladpams  wapa  wplttan. 

Davalopmant  of  tha  Sof twapa 

Duping  this  stags,  a  DBMS  (dBASE  III  PLUS  (tm))  was 
choaan.  Tha  syatam  dasign  wopk  was  than  tpanslatad  into 
dBASE  III  PLUS  (tm)  ppogpam  coda.  Whila  coding  ppogpassad, 
AFLMC/LQS  committad  to  tasting,  maintananca  and  distPibution 
of  tha  syatam. 

Systams  Tastins 

Syatam  tasting  was  accomplishad  by  tha  usaps  in  tha 
WPAFB  Basa  Supply  opganization .  Tasting  was  also 
accomplishad  at  AFIT  by  tha  syatam  dasignap  and  a  staff  of 
voluntaaps.  Thpaa  of  tha  foup  syatam  modulas  wapa  fully 
opapatlonal  by  31  August  1988.  Tha  foupth  modula,  tha 
Conf igupatlon  Data/Basuma  Fila  was  still  baing  tastad  and 
pafinad  at  that  tiata.  Mopa  tasting  will  ba  conductad  by 
AFLMC  papsonnal  in  Octobap  1988. 
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Th«  mymtmm  waa  laplamantad  at  WPAPB.  Tha  ppotfraina  and 
hava  baan  givan  to  tha  AFLUC  lop  diatPibutlon  thpoughout  tha 
Aip  Fopoa.  Ppogpam  naintananea  paaponalbllltlaa  hava  baan 
tupnad  ovap  to  tha  APLIiC . 
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Thla  attidy  eonaiatad  of  t«to  dlffarant  typaa  of  taaka . 
Fii>at,  a  aaplaa  of  raaaarch  quaatlona  waa  aakad  and 
anawarad.  Tha  goal  of  thaaa  quaatlona  waa  to  gain 
information  about  tha  problama  ancountarad  on  a  daily  baaia 
by  aquipmant  managamant  olarka,  and  to  diacovar  potantlal 
appllcationa  of  computarizad  data  managamant  in  tha 
Bquipmant  Managamant  Saction.  Tha  aac.ond  typa  of  taak 
involvad  tha  application  of  information  ayatama  daaign 
tachniquaa  to  aquipmant  managamant  raaponalbllitlaa  in  an 
affort  to  provlda  automatad  toola  to  halp  raduca  training 
timaa  and  arror  rataa. 

Thla  ohaptar  diacuaaaa  tha  raaulta  of  both  typaa  of 
taaka  accompliahad  during  tha  atudy.  Firat,  anawara  to  tha 
raaaarch  quaatlona  will  ba  providad.  Than,  tha  managamant 
information  ayatam  davalopad  during  thla  atudy  will  ba 
outlinad. 

Raaaarch  Quaatlona 

Tha  fiva  raaaarch  quaatlona,  along  with  a  diacuaaion  of 
tha  information  gatharad  to  anawar  thoaa  quaatlona,  ara 
contalnad  in  tha  following  paragrapha: 

Raaaarch  Quaation  Ona.  What  ratail-laval  aquipmant 
procaduraa  raault  in  axtandad  training  timaa  or  xinaccaptabla 
arror  rataa? 

Through  diacuaalona  with  axparta  involvad  at  all  lavala 
of  tha  fiald  of  aquipmant  managamant,  and  through  raviawa  of 


Command  Equlpmant  Managamant  Taam  (CEMT)  staff  assistanca 
paports,  many  ppoblama  cama  to  light.  Qanarally.  Idantlflad 
ppoblam  tasks  ara  admlnlstrativa  ppocaduras  which  pequlpe 
complata  accuracy  and  apa  accompllshad  on  a  dally  op  waakly 
basis.  Tabla  3  Is  a  list  of  tha  saven  major  tasks  found  to 
rasult  In  high  arror  ratas  op  unusually  long  training  tlmas. 

Tabla  3 

Equlpstant  Managamant  Tasks  Impacting  Error  Hatas  or  Training 

Timas 


(1) 

(2) 

(3) 

(4) 

(5) 
(0) 
(7) 


Tablas  of  Allowancas  Ravlaws 

Air  Fopca  Form  600,  Equlpmant 
Control  Raglstar 

Configuration  Data/Rasuma  FI la 

Equlpmant  Out-of -Balanea  Listing 

Air  Forca  Form  001  Cartlflad  Fila 

Equlpmant  Custodian  FI la 

DIO,  Dally  Equlpmant  Transaction 
Raport 


Tables  of  Allowancas  Ravlaws .  Tha  most  of  tan 
cltad  problam  was  tha  task  of  ravlawlng  TAs .  Whan  a  revised 
TA  Is  published  by  AFLC ,  equipment  technicians  In  tha  EMS 
must  raviaw  the  allowance  changes  to  the  TA  and  compare  the 
QOO  to  those  changes.  If  the  revised  TA  has  reduced  an 
allowance  on  an  equipment  Item  which  has  been  previously 
authorized,  then  the  EMS  technician  must  Inform  the  affected 
equipment  custodian  and  direct  turn-ln  of  tha  equipment. 
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Unfortunately,  the  nature  of  manually  comparing  a  TA,  a 
product  distributed  on  microfiche,  with  the  QOO ,  a  computer 
printout.  Is  both  a  physical  and  a  mental  strain.  The  TA 
review  process  can  take  several  weeks  If  many  changes  have 
been  made  to  the  TA  (Wilson,  IdSSa) .  Since  each  base  works 
with  two  dozen  or  more  TAs ,  and  TA  revisions  are  made  as 
often  as  monthly,  the  TA  review  process  often  requires  more 
labor  hours  than  any  other  single  task  In  the  EMS  (Wilson, 
1988a;  Stackhouse,  1988a).  A  recent  AFLC  CEIifr  report  makes 
the  situation  clear:  ‘Tablets]  of  Allowancets]  (TAs)  are  not 
being  reviewed  within  30  days  of  receipt  of  new  or  revised 
TAs.  This  has  been  an  ongoing  problem. .. (AFLC ,  1987:9)' 
Equipment  Control  ReAlster .  The  Air  Force  Form 
600  Equipment  Control  Register  was  also  cited  often  as  a 
task  associated  with  high  error  rates  (Stackhouse,  1988b; 
SAC,  1987:8).  The  task  requires  close  attention  to  detail 
as  each  equipment  request  must  be  logged  In  and  tracked  from 
the  time  It  Is  delivered  to  the  EMS  until  It  Is  processed 
and  the  paperwork  Is  returned  to  the  equipment  custodian 
(Anderson,  1988b).  The  log  is  handwritten  and  Is  often 
difficult  to  read;  this  results  In  It  not  being  used  to 
properly  manage  the  flow  of  equipment  requests  through  the 
EMS  (Anderson,  1988b). 

Configuration  Data/Resume  File .  Another  task 
which  regularly  Is  accomplished  In  error,  and  not  kept 
current.  Is  the  Configuration  Data/Resume  file  (Brown, 

1988).  While  the  format  and  contents  of  this  file  are  left 
to  the  discretion  of  each  major  command,  moat  of  the  people 
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lnt*pvlew«d  agreed  that  thla  documentation  la  Important  to 
keep  current  (Wllaon,  ld86c;  Brown,  1986).  The  more 
accurate  the  contenta  of  thla  file,  the  better  the  EMS  can 
aerve  organizational  equipment  needa  (Anderaon,  1088a.  Moat 
EMSa  do  not  have  a  atrong  program  to  maintain  an  up-to-date 
Configuration  Data/Reaume  file  (Anderaon,  1988a;  Stackhouae , 
1968c).  For  example,  the  1987  CEMT  report  for  Maxwell  and 
Gunter  Air  Force  Baaea  noted  that  the  EMS  waa  not 
maintaining  configuration  data  on  23  aupported  organlzatlona 
(Air  Unlveralty,  1987:13). 

Equipment  Out -of -Balance  Llatlng .  Similar  to  the 
problema  with  TA  revlewa  and  the  009,  the  QIO  Equipment  Out- 
of -Balance  Llatlng  requlrea  technlclana  to  reconcile 
dlacrepanclea  between  allowancea  and  authorlzatlona .  Thla 
la  a  difficult,  tlme-conaumlng  taak  which  the  more 
experienced  technlclana  uaually  accompllah  (Wllaon,  1986b). 
Again,  great  attention  to  detail  la  required  for  thla  taak 
(Wllaon,  1988b;  Stackhouae,  1988b).  Every  CEMT  report 
reviewed  noted  equipment  authorized  for  uae  but  not  allowed 
by  the  applicable  TA.  Proper  uae  of  the  QIO,  In  addition  to 
timely  TA  revlewa,  will  preclude  theae  dlacrepanclea 
(Hopklua,  1988;  Stackhouae,  1988b). 

Air  Force  Form  00 1  Certl f led  File.  Major  commanda 
have  the  option  of  allowing  aubordinate  EMSa  to  maintain  a 
computerized  Hating  of  completed  Air  Force  Forma  601  In 
lieu  of  a  file  of  theae  documenta.  Many  MAJCOMa  have 
allowed  their  aubordinate  EMSa  to  make  a  local  decialon 
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eoncttpnlng  which  option  to  umm.  Many  baaoa  hava  continued 
to  maintain  a  file  of  complatad  Air  Force  Forma  801 
(Stackhouae,  1088a).  Unfortunately,  theae  filea  get  to  be 
difficult  to  maintain  in  the  correct  aequence ,  and 
individual  forma  tend  to  get  miaplaced  (Stackhouae,  lOeSa) . 

Equipment  Cuatodian  File.  Equipawnt  cuatodiana 
and  alternate  equipment  cuatodiank  muat  be  trained  in  their 
additional  duty  before  they  aign  for  equipauint  (USAF, 

1087 :Ch  22,  43-44).  They  alao  muat  be  replaced  by  a  new 
cuatodian  before  they  can  be  releaaed  to  leave  their 
organization.  Unfortunately,  it  often  happena  that  a 
cuatodian  will  rotate  to  a  new  baae  without  a  replacement 
having  been  appointed  and  trained  (Brown,  1088).  Part  of 
the  problem  can  be  related  back  to  the  EMS  recorda  of 
equipment  cuatodiana,  their  training  datea ,  and  projected 
departure  datea  (Brown,  1088).  Many  EMSa  do  not  keep 
equipaient  cuatodian  Inforeiation  current  and  acr''4rate 
(Hopklna,  1088).  Without  accurate  Information  on 
cuatodiana,  however,  the  EMS  cannot  manage  the  exodua  of 
equipment  cuatodiana  (Brown,  1088). 

Daily  Equipment  Tranaaction  Report .  Another 
recurring  problem  in  equipment  management  ia  the  dally  D16 
reporting  (Hopklna,  1088;  Stackhouae,  1088a).  An  error  in 
the  daily  report  can  reault  in  a  freeze  in  all  D18 
proceaalng  for  the  baae  until  the  error  ia  corrected  (USAF, 
1087:Ch  22,  138).  While  aome  of  the  problema  baaea 
experience  with  018  reporting  are  due  to  antiquated  AFLC 
computer  ayatema,  much  of  the  problem  could  be  eliminated 
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with  b«tt«r  training  and  qxiallty  control  in  tha  EMS 
(Hopkina,  1088). 

Haaaareh  Quaation  Two .  Which,  if  any,  of  thoaa 
procaduraa  fotmd  to  raault  in  axtandad  training  timaa  or 
unaccaptabla  arror  rataa  can  ba  automatad  by  davaloping 
microcoiiiputar'baaad  application  prograwa? 

Critaria.  Tha  critarla  uaad  to  anawar  thla 
quaation  cantarad  on  tha  availability  of  tha  raquirad  data 
and  tha  capabilltiaa  of  microcomputara ,  and  ara  llatad 
balow: 

(1)  Tha  taak  auat  ba  abla  to  ba  aolvad  uaing  a  atand' 
alona  ayataai.  If  a  particular  taak  could  baat  ba  aolvad  by 
automating  tha  intarfaca  batwaan  APLC  computara  and  tha  SBSS 
coaqiutar  ayatam,  it  waa  daamad  inapproprlata  to  attampt  to 
aolva  in  thia  atudy. 

(2)  Tha  taak  muat  ba  abla  to  ba  aolvad  on  tha  Air 
Forca  atandard  amall  computar.  Sinca  EllSa  alraady  hava 
thaaa  microcomputara,  and  thara  ara  no  plana  for  aquipmant 
tachniciana  to  ba  iaauad  mora  powarful  hardwara,  any  problam 
raquiring  upgradad  hardwara  could  not  hava  baan  aolvad  in 
tha  naar  tarm. 

(3)  Tha  taak  muat  ba  aolvabla  uaing  a  PC  baaad  DBMS. 
Sinca  thia  atudy  daalt  with  tha  faaaibility  of  PC  databaaa 
appllcationa  to  tha  EMS,  it  waa  nacaaaary  to  limit  problama 
to  thoaa  «dilch  ara  appropriata  for  aolution  uaing  a  DBMS. 

(4)  Finally,  tha  taak  to  ba  automatad  muat  ba  ona 
which  la  nacaaaary  to  accompliah  on  a  ragular  baala.  Tha 
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r«a«onln^  h«F«  was  that,  alnca  tha  daal^n,  davalopaant ,  and 
aalntananaa  of  a  MIS  la  quit#  labor  Intanaiva,  and  tharafora 
coatly,  only  taaka  vvhlch  ara  raqulrad  to  ba  accompllahad 
rasularly  should  bacoma  candidatas  for  autoaiatlon. 

Problam  Analyala .  Tha  aavan  taaka  outllnad  abova 
wara  analyzad  using  thaaa  four  critarla.  Tabla  4  providas  a 
list  of  tha  taaka  found  to  ba  good  oandldataa  for 
automation. 


Tabla  4 

Oandldataa  for  Automation 


(1)  Air  Forca  Form  000,  SquipiMnt 
Control  Raglatar 

(2)  Configuration  Data/EaauaM  FI la 

(3)  Air  Forca  Form  001  Cartlflad  Flla 

(4)  Equlpmant  Custodian  Flla 


Tabla  S  provldaa  a  two -dl mans lonal  vlaw  of  tha  aavan 
tasks  and  tha  critarla  against  which  thay  wara  analyzad. 
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Tabl*  5 


BqulpiMnt  llanAgttOMnt  Tafllca  V*raua  Automation  Critopla 


Stand- 

Alona? 

AF  Small 
Computar? 

DBMS? 

Ragular 

Taak? 

TA  Ravlawa 

Ho 

Ho 

Yaa 

Yaa 

Bqulpmant 

Control 

Raglatar 

Yaa 

Yaa 

Yaa 

Yaa 

Configuration 

Data/RaauBM 

Flla 

Yaa 

Yaa 

Yaa 

Yaa 

Equlpmant 

Out-of-Balanca 

Llatlng 

Ho 

Ho 

Yaa 

Yaa 

AF  Form  001 
Cartlflad  Flla 

Yaa 

Yaa 

Yaa 

Yaa 

Bqulpmant 
Cuatodlan  Flla 

Yaa 

Yaa 

Yaa 

Yaa 

Dally 

Tranaactlon 

Raport 

Ho 

Ho 

Yaa 

Yaa 

Tha  paragrapha 

which 

follow  diacuaa 

tha  analyaia  of 

•ach  taak  In  datail: 

Whlla  Tablaa  of  Allowancaa  ravlawa  wara  found  to  ba  tha 
moat  aarioua  ppoblam  af footing  training  tlmaa  and  arror 
rataa  in  tha  RMS,  tha  taak  mat  only  two  of  tha  four  crltarla 
aat  for  automation.  TA  ravlawa  raqulra  tramandoua  amounta 
of  data  which  ara  ourrantly  contalnad  on  mloroflcha  and  on 
computar  tapa  on  tha  AFLC  coiiq>utar  ayatama.  Thla  taak  la, 
tharafora,  Inapproprlata  for  automation  on  a  atand-alona 
computar  ayatam.  Thla  ppoblam  la  cartalnly  aolvabla  on  tha 
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Air  Fora*  standard  amall  conputar  but  tha  raquialta  hardtiara 
ia  not  aval labia.  Wa  hava  tha  tachnology,  using  oompact 
disks,  to  ator*  larga  aoMunta  of  data  and  usa  it  in  atand- 
alona  applioationa  (Harding.  1088a).  Hoiaavar ,  AFLC  doaa  not 
currantly  provid*  TAa  on  compaat  disk,  and  tha  ElfSa  do  not 
hava  compaat  disk  raadara.  PC  database  managamant  software 
has  tha  capability  to  perform  tha  Job,  and  TA  ravlawa  are 
performed  continuously  by  equipment  managamant  tachnicians. 

Because  this  task  ia  vary  difficult  and  labor- 
Intensive,  it  was  important,  in  spite  of  the  difficulties 
ancountarad,  to  find  a  way  to  provide  som  automated 
capabilities  to  assist  tha  EllSa  until  AFLC  begins  to  provide 
TAa  on  soma  medium  other  than  microfich*.  Accordingly, 
while  the  TA  review  task  itself  could  not  be  automated 
during  this  research,  the  management  process,  ensuring 
reviews  are  conducted  by  appropriate  technicians  in  a  timely 
manner,  was  found  to  be  an  important  task  which  could  be 
automated. 

The  Equipment  Control  Begiater  met  all  of  the  criteria 
for  automation.  Since  the  data  needed  for  this  task  are 
generated  from  the  paperwork  received  by  the  EMS  from 
equipment  custodians,  and  are  not  required  to  be  used  by  any 
other  organization,  a  stand-alone  system  automating  this 
task  is  appropriate.  The  problem  can  be  solved  on  a 
microcomputer  using  an  off-the-shelf  DBMS,  and  it  is  a  task 
which  is  performed  every  day. 

The  Configuration  Data/Resum*  File  also  met  all  four  of 
the  criteria.  Data  for  this  task  are  not  centrally  held, 
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and  do  not  ohango  vary  of ton.  Thopofopo,  a  atand-alono 
ayatos  la  apppopplato  fop  autoaation  of  thla  taak.  Again,  a 
PC  DBIB  hoatod  on  an  Alp  Fopco  aaall  coaputop  will 
aoeoaq>llah  thla  taak  vopy  wall.  Thla  flla,  at  many  baaaa, 
la  not  pavlawad  and  updatad  aa  of tan  aa  It  ahould  ba  to  aaka 
It  a  uaaful  aanagaaant  tool  (Andopaon,  lOSSa;  Staokhouaa, 
lOaSo) .  Howavap,  although  thla  taak  la  not  alwaya 
aocoovllahad  pagulaply.  It  waa  addad  to  tha  Hat  of 
eandldataa  fop  automation  bacauaa  tha  Alp  Fopca  paqulpaa 
that  It  ba  acoompllahad  pagulaply  (USAF,  1087:Ch  22,  34). 

Tha  Equlpmant  Out-of -Balanca  Llatlng  Itaalf  haa  alpaady 
baan  automatad  within  tha  BBSS.  Tha  pavlaw  ppooaaa , 
howavap,  haa  not  baan  automatad.  Tha  data  paqulpamanta  fop 
thla  pavlaw  apa  axtanalva  and  automatad  Intapfaoaa  with  tha 
BBSS  and  AFLC  would  naad  to  ba  aatabllahad,  ao  It  would  not 
ba  apppopplata  to  Implamant  a  pavlalon  to  tha  QIO  on  a 
atand-alona  ayatam.  Lika  tha  TA  pavlawa,  tha  Alp  Fopca 
atandapd  amall  oomputap  without  additional  mamopy  and  a 
compact  dlak  paadap  la  not  capabla  of  doing  thla  wopk.  A  PC 
baaad  DBMB  la  capabla  of  doing  tha  wopk,  howavap,  and  tha 
pavlaw  muat  ba  accompllahad  on  a  ragulap  baala.  Blnca  thla 
taak  mat  only  two  out  of  tha  foup  cpltapla.  It  waa  not 
conaldapad  a  good  candldata  fop  automation. 

Tha  AlP  FoPca  Fopm  601  Captlflad  Flla,  Ilka  tha 
Equlpmant  Contpol  Raglatap,  contalna  data  which  apa  ppovldad 
to  tha  EMB  by  aqulpmant  cuatodlana.  Thara  ara  no  othap  data 
aoupcaa,  and  thara  la  no  naad  to  build  an  autoamtad 
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intspfao*  b«tww«n  th«  BMS  and  soma  othar  opganization  prior 
to  autoBUiting  this  tank.  Tharafora,  thla  flla  could  ba 
loplamantad  on  a  atand-alona  ayatam.  Tha  Air  Forca  atandard 
aauill  computar,  eouplad  with  a  po«»arful  microcomputar'baaad 
DBMS  ara  capabla  of  handling  tha  quantity  and  complaxity  of 
tha  data  in  thia  fila.  Finally,  Air  Forca  Forma  001  ara 
procaaaad  in  tha  EMS  avary  day.  Thia  problam  taak  maata  all 
of  tha  critaria  and  waa  conaidarad  a  good  candidata  for 
automation. 

Tha  Equipmant  Cuatodian  Fila  alao  mat  all  four  of  tha 
critaria.  All  of  tha  data  in  thia  fila  ara  craatad  in  tha 
BMS.  or  providad  to  tha  EMS  by  tha  Conaolidatad  Baaa 
Paraonnal  Of  flea  or  tha  aupportad  organlaationa ,  ao  a  atand- 
alona  ayatam  tMuld  ba  capabla  of  managing  tha  taak.  A 
ralativaly  waophiaticatad  databaaa  ia  raquirad  for  thia 
particular  fila,  ao  moat  microcomputar  DBMSa  ara  capabla  of 
automating  thia  taak  on  a  PC.  Tha  fila  ahould  ba  uaad  at 
laaat  waakly  ao  tachniciana  can  achadula  naw  cuatodiana  for 
training  and  prapara  to  tranafar  accountability  of  accounta 
aa  cuatodiana  ara  raplacad.  Tha  Equipmant  Cuatodian  Fila 
waa  daamad  a  good  candidata  for  automation. 

Tha  final  problam  araa  la  tha  Die,  Daily  Tranaaction 
Raport.  Thia  raport  goaa  from  tha  SBSS  to  AFLC  on  computar 
tapa.  Thia  typa  of  procaaaing  ia  not  approprlata  for  a 
atand-alona  ayatam,  and  tha  Air  Forca  atandard  amall 
computar  doaa  not  currant ly  hava  tha  capability  to  writa  to 
tha  SBSS  tapa  drlvaa  (Harding,  IO880) .  Tha  taak  la 
parformad  daily  and  tha  data  atructuraa  and  raqulramanta  ara 


atPAlgbt<oi>«MPd  and  wmII  within  tha  capabllltlaa  of 
BUopooowputap-baaod  DBMSa.  Slnco  tho  DIO  la  not  a  atand' 
alona,  Indapandant  taak,  and  tha  Air  Fopoa  atandapd  anall 
coi4>utapa  do  not  cuppantly  hava  tha  capability  to  wpita  to 
tha  SBSS  tapa  dpivaa,  thla  taak  waa  not  found  to  ba  a  good 
candidata  fop  autowation. 

Raaaapch  Quaation  Thpaa ♦  Which,  if  any,  of  thoaa 
ppooadupaa  foiind  to  ba  faaaibla  fop  autowatlon  apa  alpaady 
in  tha  ppocaaa  of  baing  autoauitad  by  Alp  Fopoa 
opganiaationa? 

Tha  Aip  Fopca  la  davaloping  a  naw  data  ayatam  to 
autOBMta  anjch  of  tha  aquipaant  aanaganant  ppocaaa.  Thla 
data  ayataa,  lika  tha  aquipaant  aanagaaant  ppocaaa  itaalf, 
la  cal lad  AFEMS.  Ona  of  tha  atudiaa  tha  Syataa  Ppogpaa 
Offiea  (SPO)  fop  thla  data  ayataa  haa  accoapliahad  ia  a 
aupvay  of  aquipaant  aanagaaant  autoaation  affopta  in  tha  Aip 
Fopca  (Hapding,  1088a).  Tha  AFEMS  SPO  found  that  aoaa  EMSa 
hava  autoBiatad  thaip  Equipaant  Contpol  Bagiatapa  ualng  PCa 
and  a  DBMS.  Nona  of  tha  ayataaa  found  waa  Intagpatad  with 
any  othap  taaka  paquipad  of  EMS  tachniciana  and  all  paqulrad 
uaapa  to  ba  faalliap  with  tha  databaaa  aanagaaant  aoftwapa 
(Hapding,  1088a).  Tha  AFEMS  SPO  alao  found  that  aany  baaaa 
uaa  wopd  ppocaaaopa  to  aaintain  thalp  Alp  Fopca  Fopb  801 
Captlfiad  Flla,  EquipBMnt  Cuatodlan  Fila,  and  Conf Igupation 
Data/Raauaa  Fila.  Intapaatingly ,  nona  of  tha  thpaa  ppoblama 
datapainad  to  ba  poop  candidataa  fop  autoaation  haa  baan 
autoaatad  anywhapa  in  tha  AiP  Fopca,  but  tha  naw  AFEMS  data 
ayataa  will  fully  autoaata  all  thpaa. 
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tLmmm^VGh  Qu#«tion  Four .  Which  dotabMo  managomont 
aoftwara  paokaga  la  moat  approprlata  for  tha  autooiatlon  of 
aalactad  aqulpmant  managamant  procaduraa? 

Bafora  anawarlng  thla  quaation,  a  aat  of  critarla  for 
chooaing  a  paokaga  «faa  aatabllahad.  Flrat,  tha  paokaga  had 
to  ba  avallabla  for  uaa  on  a  atand~alona  nlorooomputar . 

Slnoa  applloationa  would  ba  davalopad  on  a  Blorooosqtutar 
with  no  automatad  intarfaoaa  with  othar  oomputar  syatama, 
thla  waa  aaaantlal.  Sacond,  it  had  to  ba  prograwmabla . 

Many  DBMS  paokagaa  do  not  provida  a  programming  languaga.  A 
programming  languaga  givaa  tha  ayatam  davalopar  tha 
flaxiblllty  to  oraata  a  ayatam  which  la  aaay  to  uaa  and  doaa 
not  raquira  tha  uaar  to  hava  any  knowladga  of  databaaaa  and 
databaaa  managamant  ayatama.  Third,  tha  Idaal  DBMS  ia  ona 
which  ia  available  to  all  Air  Fore#  uaara.  In  tha  baat  of 
aituatlona,  tha  DBMS  would  already  hava  bean  purohaaad  by 
uaara  for  tha  PCa  in  their  officaa.  However,  if  thla  waa 
not  tha  caaa ,  tha  DBMS  choaan  had  to  ba  avallabla  through 
aanaral  Sarvicaa  Adminiatration  (QSA)  contract.  Fourth, 
there  ahould  ba  a  atrong  baaa  of  knowladga  about  tha  DBMS  In 
tha  Air  Force  ao  tha  programa  could  ba  maintained  and 
updated  wall.  Fifth,  ainca  tha  capabllltlaa  of  computer 
hardware  and  aoftwara  change  rapidly,  tha  idaal  DBMS  would 
ba  ona  which  haa  atatc'-of -tha-art  faaturaa  including  an 
implamantation  of  Structured  Query  Languaga  (SQL) ,  a  built- 
in  compiler,  and  advanced  report  writing  capabllltlaa. 

Tha  top  five  databaaaa,  aa  maaaurad  by  tha  five 
criteria  diacuaaad  above,  ware  dBASE  III  PLUS  (tm) ,  Bnabla 
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(tm) ,  FoxBase  Plus  (tm) ,  Paradox  (tm) ,  and  R:base  for  DOS 
(tm) .  Table  6  shows  the  top  five  DBMS  packages  and  how  they 
measured  up  to  the  five  criteria. 

Table  6 

Comparison  of  DBMS  Packages 


Micro- 

Program 

1-  QSA 

Knowledge 

Frontl ine 

Based? 

mable? 

Contract? 

Base? 

Features? 

dBASE  III 
PLUS  (tm) 

Yes 

Yes 

Yes 

Excellent 

See  Note  1 

Enable  ( tm) 

Yes 

Yes 

Yes 

Some 

No 

FoxBase 

Plus  (tm) 

Yes 

Yes 

See  Note 

2 

See  Note  3 

No 

Paradox  (tm) 

Yes 

Yes 

See  Note 

2 

No 

Yes 

R:base  for 

Yes 

Yes 

See  Note 

2 

Limi ted 

Yes 

DOS  (tm) 

Note  1:  A  new  version  with  state-of-the-art  features  will 
be  released  in  late  1988. 

Note  2:  These  packages  were  not  available  on  CSA  contract 
at  the  time  this  analysis  was  accomplished.  They 
all  are  now  available  on  QSA  contract. 

Note  3:  This  DBMS  is  a  clone  of  dBase  III  PLUS  (tm)  so 
there  is  a  large  group  of  Air  Force  workers  who 
could  use  this  package  with  minimal  difficulty. 


All  five  of  the  DBMSs  are  relational  database  systems, 
and  each  met  the  first  two  requirements  of  availability  in  a 
PC  version  and  programmability.  However,  only  two  of  the 
five,  dBASE  III  PLUS  (tm)  and  Enable  (tm)  were  available  on 
OSA  contracts  at  the  time  this  analysis  was  accomplished. 
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Bach  of  tho  flvo  ivaa  avallablo  to  Bovornmont  buyoro  by  July 
of  1988. 

Thopo  ia  a  amall  baaa  of  knowladB#  in  tha  Air  Forco  In 
S:baaa  Syatam  V  (tm) ,  «Aloh  baa  boon  upgradad  to  R:baaa  for 
DOS  (tm) .  Moat  of  thla  knomladga  la  conoantpatad  in  tha 
mlnda  of  full-tlma  ppogpaauaapa .  bacauaa  thla  DBMS  baa  baan 
uaad  on  many  mlnlaomputapa  apound  tha  Aip  Fopca  (Hapdlng, 
1988b) .  Slnca  Papadox  (tm)  and  FoxBaaa  Plua  (tm)  hava  only 
pacantly  bacoma  aval labia  to  govapnmant  buyapa ,  thara  la  no 
knowladga  baaa  yat  aatabllahad  In  tha  Alp  Fopca  fop  thaaa 
ppogpama.  Of  tha  flva  packagaa ,  dBASB  III  PLUS  (tm)  haa  tha 
atpongaat  following  In  tha  Alp  Fopoa.  AFLMC  and  tha  Alp 
Fopca  Standapd  Syatama  Cantap  hava  baan  ualng  dBASB  III  PLUS 
(tm)  to  build  amall  atand-alona  MISa  alnca  1986  (Randall , 
1988).  In  addition,  thaaa  opganlzatlona  hava  tha  capability 
to  complla  dBASB  III  PLUS  (tm)  ppogpaaM.  Thla  ppovldaa 
axtpa  apaad  and  allowa  uaapa  who  do  not  hava  acoaaa  to  dBASB 
III  PLUS  (tm)  to  uaa  ppogpama  wpittan  In  dBASB  III  PLUS  (tm) 
coda.  Many  booka  apa  aval labia  on  ualng  and  ppogpammlng 
dBASB  III  PLUS  (tm)  appllcatlona ,  claaaaa  aponaopad  by  AFLC 
and  ATC  hava  baan  glvan  to  hundpada  of  uaapa  (Francla, 

1988) ,  and  many  uaapa  now  hava  tha  ppogpam  Inatallad  on  tha 
PCa  In  thalp  offlcaa  (Hapdlng,  1888b).  Thapa  la  a  amall 
baaa  of  knowladga  ooncapnlng  Bnabla  (tm)  in  tha  Alp  Fopca , 
but  moat  paoant  databaaa  applloatlona  hava  baan  wplttan  In 
dBASB  III  PLUS  (tm)  (Hapdlng,  1988b).  Thara  ara  many 
naaaona  for  thla.  Whlla  Bnabla  (tm)  haa  tha  advantaga  of 
balng  an  Intagpatad  aoftwapa  packaga  with  apraadahaat  and 


word  processing  capabilities  in  addition  to  its  data 
management  function,  the  DBMS  is  not  as  powerful  and  does 
not  contain  the  features  that  dBASE  III  PLUS  and  many  of  the 
newer  DBMS  software  packages  have  (Smith,  1987:17;  Harding, 
1988b).  Thousands  of  copies  of  Enable  Version  1.15  were 
distributed  with  the  new  Zenith  Z-248  (tm)  microcomputers  in 
1986  and  1987,  so  software  availability  is  not  a  problem  for 
Enable.  Several  books  have  recently  been  published  to  help 
Enable  users  get  the  most  from  their  Integrated  software. 
Unfortunately,  the  DBMS  Included  with  Enable  Version  1.15  is 
a  dBASE  II  clone.  This  DBMS  is  quite  powerful,  but  the  user 
Interface  and  programming  capabilities  are  archaic  in 
comparison  to  the  other  four  software  packages.  Paradox 
(tm)  and  B:base  for  DOS  (tm)  are  the  most  advanced  of  the 
five  DBMSs.  For  example,  along  with  several  other  new 
features,  Paradox  (tm)  is  the  first  DBMS  to  provide 
automatic  updating  of  screens  as  data  are  changed  (PC 
Magazine,  1988:122).  R:base  for  DOS  (tm)  contains  the  first 
Structured  Query  Language  (SQL)  implementation  in  a 
microcomputer  DBMS,  and  a  compiler  (PC  Magazine,  1988:  252). 
The  next  most  advanced  of  the  five  is  dBASE  III  PLUS  (tm) . 
While  it  does  not  provide  all  of  the  features  available  in 
Paradox  (tm)  and  R:base  for  DOS  (tm) ,  it  is  a  solid 
performer  and  a  new  version,  dBASE  IV  (tm) ,  will  be  released 
in  the  latter  half  of  1988  (PC  Magazine,  1988:  152). 
Unfortunately,  the  release  date  is  not  yet  known  because 
several  major  software  problems  have  been  discovered  during 
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taatlng.  Whan  it  Is  released,  DBASE  IV  (tm)  will  provide 
full  relational  database  capabilities,  SQL,  and  several  new 
mathematical  functions  (PC  Magazine  1988:  156).  The  new 


version  Is  significantly  faster  than  previous  versions  and 
can  read  dBASE  III  PLUS  (tm)  files  (PC  Magazine,  1988:  156). 

FoxBase  Plus  (tm)  Is  a  clone  of  dBASE  III  PLUS  (tm)  which 
runs  faster  than  the  latter,  but  does  not  support  some  of 
the  dBASE  III  PLUS  (tm)  functions  (PC  Magazine.  1988:  182). 

Enable  (tm)  Is  the  least  advanced  of  the  five  DBMSs, 
although  there  Is  a  new  version  available  with  more  features 
than  those  contained  In  Version  1.15. 

The  analysis  of  these  five  software  packages  clearly 
revealed  that  any  software  choice  la  a  compromise. 

Obviously,  It  would  be  helpful  to  users  If  an  Integrated 
package  was  used  to  automate  tasks  because  they  would  never 
have  to  switch  from  one  piece  of  software  to  another. 

Unfortunately,  Enable  (tm) ,  the  only  integrated  package  In 
the  group,  does  not  have  a  strong  following,  and  lacks  I 

features  which  the  other  software  packages  have.  It  would 
also  be  helpful  to  both  users  and  programmers  If  the  DBMS 
chosen  had  an  Implementation  of  SQL.  However,  R:base  for  I 

DOS  (tm)  was  not  available  on  QSA  contract  until  after  a 
final  decision  was  made  on  a  DBMS  to  use  for  this  study. 

While  dBASE  III  PLUS  (tm)  does  not  have  all  of  the  features 
of  Paradox  (tm)  and  R:baae  for  DOS  (tm) ,  and  It  la  not  as 
fast  as  FoxBase  Plus  (tm) ,  It  Is  available  to  Air  Force 
users,  has  gained  a  following  by  programmers  and  users 
throughout  the  Air  Force,  and  la  compatible  with  the 
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Impiindlng  pttlaaa*  of  dBASB  IV  (tm)  .  Tho  comppomlao  cholco, 
thon.  waa  dBASB  III  PLUS  (tm) . 

Boaoarch  Quoatlon  Fi v .  How  can  thosa  procoduros  which 
apo  automatad  duping  thla  atudy  ba  fialdad  to  ansupa  maximum 
alfactlvanaaa  and  afflclancy  in  thalp  dlatPlbutlon , 
malntananoa,  and  Imppovamant? 

AFLMC/LQS  haa  a  amall  gpoup  of  paopla  whoaa  prlmapy 
paaponalbllltl^i..  Incliida  daalgnlng,  wpltlng,  dlatplbutlng , 
Imppovlng,  and  ou. ‘n 'raining  mlcpocomputap-baattd  aoftwapa  fop 
uaa  oy  baaa  aupply  opganlzatlona  apound  tha  wopld  (Howapd, 
1988) .  Thla  opganlzatlon  Inltlataa  aoftwapa  ppojacta  and 
accapta  paquaata  fOP  ppojacta  fpom  majop  commanda  (MAJCOMa) 
and  aapapata  opapatlng  aganclaa  (SOAa) .  Sof twapa  la 
dlatplbutad  to  MAJCOMS  and  SOAa  and  than  paaaad  on  to  tha 
baaa  aupply  opganlzatlona.  Lt  Col  Patapaon,  tha  dlpactop  of 
AFLMC/LQS,  haa  agpaad  to  taka  tha  aoftwapa  wplttan  duping 
thla  atudy,  papfopm  vaplflcatlon  ahd  validation  taata  on  It, 
and  dlatPlbuta  It  fop  worldwlda  Alp  Fopca  uaa  (Patapaon, 
1988).  AFLMC/LQS  papaonnal  will  maintain  tha  aoftwapa. 

Eaulomant  Manadamant  Inf opmatlon  Svatam  (EMIS) 

Tha  ayatam  daalgnad  and  davalopad  duping  thla  atudy, 
dubbad  tha  EqulpsMnt  Managamant  Infopmatlon  Syatam  (EMIS) 
waa  wplttan  In  dBASE  III  PLUS  (tm)  ppogpam  coda.  It 
ppovldaa  aqulpmant  aianagamant  tachnlclana  with  aaalatanca  In 
foup  of  tha  taaka  which  moat  oftan  paqulpa  axtanalva 
tpalnlng  tlmaa  to  maatap,  op  paault  In  high  appop  pataa . 
Thaaa  taaka  apa  tha  (1)  AIp  FoPca  Fopm  600  Log,  (2)  Tablaa 
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of  Allowanoos  Rovlow  List,  (3)  Configuration  Data/Rosumo 
FI la,  and  (4)  Equipmant  Custodian  Listing.  Figura  1  shows 
tha  hiararchy  of  tha  major  programs  in  tha  systam,  whlla 
Figura  2  shows  tha  functions  of  tha  systam. 

Main  Manu.  Whan  tha  usar  logs  on  to  BMIS  an  initial 
manu  appaars.  Figura  3  is  a  facsimlla  of  this  manu.  Tha 
usar  is  confrontad  with  a  scraan  which  provides  tha  data  and 
tlma,  as  wall  as  a  sarias  of  choicaa.  As  tha  usar  raviaws 
tha  manu,  tha  systam  automatically  updates  tha  tlma  on  tha 
screen.  From  this  stanu.,  by  pressing  either  <A>  ,  <B>,  <C>  , 
<D> ,  <H> ,  or  <Q> ,  tha  user  can  access  any  of  tha  four  tasks, 
gat  Help,  or  Quit  tha  systam.  EMZS  does  not  allow  inputs 
other  than  tha  six  latter  choices  given,  so  human  input 
errors  are  kept  to  a  minimum.  Beneath  each  of  tha  main  manu 
choices  except  <Q>^is.  a  sarias  of  prograstf  vrtiioh  provide 
menus  and  functions  specific  to  tha  particular  task  being 
accomplished.  However,  if  tha  latter  <Q>  is  chosen,  tha 
main  program  (EMIS.PRQ)  closes  tha  databases,  sets  tha 
computer  environment  back  to  tha  standard  default  values, 
issues  a  farewell  statement,  and  returns  control  of  tha 

f 

computer  to  tha  usar.  Figura  4  is  a  flowchart  of  tha 
program  logic  for  tha  EMIS  startup  routine  (EMIS.PRQ). 

Air  Force  Form  flOO  Manu.  If  tha  usar  chooses  tha 
latter  A  from  tha  main  manu,  tha  Air  Force  Form  600  Control 
Log  manu  will  appear.  Figura  S  is  a  facsimile  of  this  manu. 
From  this  manu,  tha  user  can  add,  update,  or  delate  records 
from  tha  Air  Force  Form  600.  In  addition,  there  is  a  sat  of 
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EMI&PRQ 


54 


1.  Hierarchy  of  IMIS  Major  Pro|raaia 


OUcTMaiANIVri 


guF«  3.  EMIS  Syat«a  Punctlons 


EQUIPMENT  MANAGEMENT  INFORMATION  SYSTEKT 

DATE  TIME 

07/3V88  12-,2&08 

lAl  Air  Foro«  Form  600  Control  Loo 
(Bl  Tabloa  of  Allowaneaa  Rtviaw  Liat 
[Cl  Configuration  Data/Roaumo  Llat 
[D]  Equipmant  Cuatodlan  Liat 
IHI  Halp  -  How  To  Uaa  Thia  Syatam 
IQI  Quit 

lEntar  Salactlon  (A  -  D>  K  Q):  :1 


Flgup*  3.  Bins  Main  Ifonu 


AINMfNUPRQ 


Fl^ur*  4.  PloiKshapt  of  tho  SMIS  Startup  Boutina 

(EMIS.PBa) 


AIR  FORCE  FORM  600  CONTROL 


DATE  TIME 

08/17/88  21»47:11 


[Al  Add  Raoords  To  Tho  Loa 
[Bl  Updato  Records  Provloualy  Logged  In 
(Cl  DMots  Rsoords  Previously  Logged  In 
ID|  Reports 

(^4  Help  -  How  To  Use  This  System 
(Ql  Quit 

(Enter  Selection  (A  >  D,  K  Qh  :1 

Figup*  (I.  Air  Popoe  Fopm  800  Menu 
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PApoptfl  ppogPAMMd  Into  tho  ayatoM  which  cnn  ba  cal  lad  and 
althap  ppintad  op  aant  to  tha  cowputap  acpaan.  Tha  uaap  can 
alao  call  up  a  Halp  ppogpam  tdiich  ppovldaa  Infopwation  on 
tha  Alp  Fopca  Fopw  600.  Finally,  tha  uaap  can  quit  tha  Air 
Fopca  Fopm  600  modula  and  patupn  to  tha  wain  manu.  Figupa  6 
la  a  flowchapt  of  tha  ppogPam  logic  fop  tha  Alp  Fopca  Fopm 
600  ataptup  poutlna  (600. PBQ). 

AddlnA  a  Racopd.  If  tha  uaap  chooaaa  tha 
lattap  <A>  fpom  tha  Alp  Fopca  Fopw  600  Manu,  an  Input  acpaan 
will  appaap  with  blank  apacaa  baalda  tha  coawon  nanaa  of  tha 
AlP  Fopca  Fopm  600  data  alamanta.  Flgupa  7  la  a  facalmlla 
of  thla  acpaan.  Tha  ayatam  Itaalf  updataa  tha  BMS  Control 
Humbap,  but  tha  pamalning  data  alamanta  apa  Input  by  tha 
uaap.  Inputa  apa  appop  chackad  to  tha  maximum  axtant 
poaalbla.  Pop  axaaq>la,  alnca  tha  Opg/Shop  Coda  la  alwaya  a 
flva  chapactap  flald  with  tha  fipat  thpaa  chapactapa  balng 
numaplo  and  tha  laat  two  balng  alpha,  only  thraa  nuaMPlc 
chapactapa  followad  by  two  alpha  chapactapa  will  ba  accaptad 
by  tha  ayatam.  Whan  tha  uaap  haa  complatad  tha  acraan 
inputa,  EMIS  will  aak  tha  uaap  if  tha  Inputa  apa  corract. 

If  any  of  tha  Inputa  la  not  coppact,  tha  uaap  Inputa  an  <1I> . 
Tha  uaap  la  than  aakad  If  ha/aha  would  Ilka  to  contlnua.  At 
thia  point,  If  an  <ll>  la  Input,  tha  EMIS  paturna  tha  uaap  to 
tha  Alp  Fopca  Fopm  600  manu.  If  a  <T>  la  input,  tha  ppogram 
loopa  to  tha  top  of  tha  input  acpaan  and  patupna  contpol  of 
tha  kayboapd  to  tha  uaap.  Whan  tha  uaap  complataa  tha  input 
acpaan  and  ppaaaaa  <Y>  in  paaponaa  to  tha  ayatam’ a  quaation 
concapnlng  tha  coppactnaaa  of  tha  inputa,  tha  data  input  by 
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Flgur*  6.  Flotrahart  of  tbo  Air  Foroo  Fora  000  Startup 

Rout in*  (000. PRO) 


AIR  FORCE  FORM  600  ADD  ROUTINE 

Equip  Coda:  E  Orp/Shop:  dOIVS  Control  #:  06300 

Custodian  Request  #:  82950067  In-Use  Doc  #:  128 

NSN  or  Part  #:  7106016347924  Action  Requested:  TIN 

Nomenoiature:  Wooden  Desk 

Date  Received:  6296  Date  Forwarded:  8296  Fwd  To:  4 
Date  Returned:  6297 

Completion  Action:  Approved 

Is  This  Correct?  ^ 


Ftgur*  7.  Alv  Fora*  Fora  800  Add  Sor**n 


th«  uflttP  Ar*  add«d  to  tho  AIp  Popco  Form  000  databaao.  At 
thla  point,  Ellis  aska  tha  uaar  If  ha/aha  haa  anothap  pacopd 
to  Input.  If  tha  ana««ap  la  <M>,  tha  ayatam  patupna  tha  uaap 
to  tha  Alp  Popca  Fopm  000  manu.  If  tha  anawap  la  <Y> ,  EMIS 
Incpamanta  tha  ElfS  Contpol  Humbap  and  loopa  back  to  a  blank 
Input  acpaan.  Flgupa  8  la  a  flowchapt  of  tha  ppoEPam  logic 
fop  tha  Alp  Popca  Fopm  000  add  poutlna  (OOOADO . PEO) . 

UodatlnM  a  Hacopd.  If  tha  uaap  chooaaa  tha 
lattap  <B>  fpom  tha  AlP  Fopca  Fopm  000  Ifanu,  an  Input  acpaan 
will  appaap  with  blank  apacaa  ba'alda  tha  namaa  of  tha  AIp 
Fopoa  Fopm  000  data  alamanta.  Figupa  0  la  a  facalmlla  of 
thla  acpaan.  At  tha  bottom  of  tha  acpaan,  tha  uaap  will  ba 
ppomptad  to  ppovlda  tha  EliS  ContPol  Hiimbap  of  tha  pacopd  to 
ba  updatad.  Aftap  tha  uaap  inputa  tha  contpol  numbap,  EMIS 
aaapchaa  tha  Alp  Fopca  Fopm  000  databaaa  fop  tha  pacopd  with 
that  contPol  numbap.  If  tha  ayatam  cannot  locata  tha  pacopd 
in  tha  databaaa,  tha  uaap  la  notlfiad  and  aakad  if  ha/aha 
would  Ilka  to  Input  anothap  contpol  numbap.  If  tha  anawap 
la  <H>  to  thla  quaatlon,  EMIS  patuPna  tha  uaap  to  tha  AIp 
FoPca  Fopm  000  manu.  If  tha  anawap  la  <Y> ,  tha  ayatam 
ppompta  tha  uaap  fop  a  naw  EluG  Contpol  Numbap.  If  EMIS 
locataa  tha  paquaatad  pacopd.  It  dlaplaya  tha  data  contained 
in  that  pacopd  on  tha  acpaan.  Tha  uaap  la  than  aakad  If  tha 
dlaplayad  pacopd  la  tha  coppact  pacopd.  If  tha  anawap  la 
<Y> ,  tha  ayatam  loopa  to  tha  top  of  tha  adit  acpaan  and 
patupna  contpol  of  tha  kayboapd  to  tha  uaap.  If  tha  anawap 
la  <N> ,  tha  uaap  la  than  aakad  If  ha/aha  would  Ilka  to 
continue.  A  paply  of  <N>  paaulta  In  tha  ayatam  patupnlng 
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Plgur*  8.  Plotwhart  of  tho  Air  Poroo  Pora  000  Add 
Boutin*  (OOOAOD.PBQ) 
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AIR  FORCE  FORM  600  EDIT  ROUTINE 


Equip  Code:  E  Org/Shop:  301VS  Control  #:  06300 

Custodian  Request  #:  82960087  In-Use  Doe  #:  128 

NSN  or  Part  #:  7106018347924  Action  Requested:  TIN 

Nomenclature:  Wooden  Desk 

Date  Received?  8298  Date  Forwarded:  8298  Fwd  To:  4 
Date  Returned:  8297 

Completion  Action:  Approved 

Enter  Control  Number:  06300 

Flgur*  0.  Air  Foro*  Fora  000  Idlt  Sap««n 
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th*  u«*p  to  tho  AlP  Fopc*  Form  000  monu.  If  tho  «na«Mr  la 
<Y> ,  EMIS  again  prompta  tha  uaar  for  th*  EMS  Control  tfumbar 
of  tha  racord  to  ba  updatad.  Whan  tha  uaar  complataa  tha 
adit  aoraan  and  praaaaa  <Y>  in  raaponaa  to  tha  ayatam'a 
quaation  eoncarning  tha  corractnaaa  of  tha  inputa,  tha 
appropriata  racord  ia  updatad  in  tha  Air  Forea  Form  600 
databaaa.  At  thia  point,  EMIS  aaka  tha  uaar  if  ha/aha  wanta 
to  updata  anothar  racord.  If  tha  anawar  ia  <N> ,  tha  ayatam 
raturna  tha  uaar  to  tha  Air  Forca  Form  600  manu.  If  tha 
anawar  ia  <Y> ,  tha  ayatam  prompta  tha  uaar  for  tha  EMS 
Control  Mumbar  of  a  racord  to  ba  updatad.  Figura  10  ia  a 
flotvchart  of  tha  program  logic  for  tha  Air  Forca  Form  600 
adit  routine  (600EDT.PRQ) . 

Dalating  2.  Racord.  If  tha  uaar  chooaaa  tha 
latter  <C>  from  the  Air*  Por'ea  Forai  600^ Menu, ^a  acraan  will 
appear  with  blank  apacea  baaide  the  namaa  of  the  Air  Force 
Form  600  data  alamenta.  Figura  11  la  a  facalmile  of  thia 

■  t 

acraan.  At  the  bottom  of  the  acraan,  the  uaar  will  be 
prompted  to  provide  the  EMS  Control  Number  of  the  record  to 
be  deleted.  After  the  uaar  inputa  the  control  number,  the 
ayatam  aearchea  the  Air  Force  Form  600  databaaa  for  the 
racord  with  that  control  number.  If  the  ayatam  cannot 
locate  the  record  in  the  databaaa,  the  uaar  ia  notified  and 
aaked  if  he/ahe  would  like  to  input  anothar  control  number. 
If  the  anawar  ia  <H>  to  thia  quaation,  EMIS  raturna  the  uaar 
to  the  Air  Force  Form  600  menu.  If  the  anawar  la  <Y> ,  the 
ayatam  prompta  the  uaar  for  a  new  EMS  Control  Number.  If 
the  ayatam  locatea  the  requeated  racord,  it  dlaplaya  the 
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FROM 

600i>RQ 


600EDT 

PRO 


Flgur*  10.  Plo«Mli*rt  of  tho  Air  Fora*  Fora  600  Edit 

Rout 1 no  (OOOEDT.PRQ) 


00 


An  Ybu  Sur«  That  You  Want  To  DaSata  This  Racord? 


rifur*  n.  Air  Foro*  Fora  800  Doloto  Saroon 
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data  eontalnad  In  that  racord  on  tha  acraan.  Tha  ayatam 
than  aaka  If  tha  diaplayad  racord  la  tha  racord  tha  uaar 
wanta  to  dalata.  If  tha  anawar  la  <N> ,  tha  uaar  la  aakad  If 
ha/aha  wlahaa  to  contlnua.  If  tha  anawar  la  <N>,  tha  EMIS 
raturna  tha  uaar  to  tha  Air  Forca  Form  000  manu.  If  tha 
anawar  la  <Y>  ,  tha  ayatam  prompta  tha  uaar  for  a  naw  ElfS 
Control  Mumbar.  Whan  EMIS  flnda  and  dlaplaya  a  racord  and 
tha  uaar  agraaa  that  tha  racord  ahould  ba  dalatad,  tha  uaar 
la  than  aakad  to  confirm  tha  dalatlon  action.  If  tha  uaar 
again  anawara  <Y> ,  EMIS  will  dalata  tha  racord  and  notify 
tha  uaar  that  tha  racord  haa  baan  dalatad.  On  tha  othar 
hand,  If  tha  anawar  la  <N> ,  tha  ayatam  aaka  tha  uaar  If 
ha/aha  wlahaa  to  contlnua.  A  raply  of  <1I>  raaulta  In  tha 
ayatam  raturnlng  tha  uaar  to  tha  Air  Forca  Form  000  manu. 

If  tha  anawar  la  <Y>,  tha  ayatam  again  prompta  tha  uaar  for 
tha  EMS  Control  Miimbar  of  tha  racord  to  bar* dalatad.  Aftar  a 
racord  la  dalatad,  EMIS  aaka  tha  uaar  If  ha/aha  wanta  to 
dalata  anothar  racord.  If  tha  anawar  la  <H> ,  tha  ayatam 
raturna  tha  uaar  to  tha  Air  Forca  Form  000  manu.  If  tha 
anawar  la  <Y> ,  tha  ayatam  prompta  tha  uaar  for  tha  EMS 
Control  Humbar  of  a  racord  to  ba  dalatad.  Flgura  13  la  a 
flowchart  of  tha  program  logic  for  tha  Ali*  Forca  Form  000 
dalata  routlna  (OOOOEL.PRQ) . 

Raporta  Manu.  If  tha  uaar  chooaaa  tha  lattar 
<D>  from  tha  Air  Forca  Form  000  manu,  tha  Air  Forca  Form  000 
Control  Raporta  manu  will  appaar.  Flgura  13  la  a  facalmlla 
of  thla  BMnu.  From  thla  manu,  tha  uaar  can  aand  to  tha 
prlntar  or  to  tha  acraan  four  dlffarant  typaa  of  raporta. 
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Fifur*  12.  FlovKshAPt  of  tho  Air  Fore*  For»  600  Doloto 

Routino  (OOOOIL.PRa) 


Air  Force  Form  600  Reports  Menti 

DATE  TIME 

07/31/aS  12:22^)9 

[A]  AlIRtoords 

(B|  Active  Record*  Only 

(Cl  Record*  By  Receipt  Det* 

(Dl  By  Deck  Number 

[El  By  Org/Shop  Cod* 

(HI  Help  -  How  To  Uee  Thie  System 

(QI  Quit 

(Enter  Selection  (A  -  E,  Ht  Q) : :] 

Plgur*  13.  Air  Fora*  Fora  BOO  R*popta  Menu 
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R*poPta  can  b*  ganaratad  which  provlda  data  on  all  of  tha 
pacorda  in  tha  databaaa,  racorda  which  apa  activa  (no 
complation  action) ,  pacopda  pacaivad  by  tha  EMS  batwaan  two 
dataa  apacifiad  by  tha  uaap,  and  pacopda  givan  to  a 
papticulap  aquipoMnt  tachnician. 

Aftap  tha  uaap  aalacta  a  papticulap  typa  of  papopt  by 
ppaaaing  <A> ,  <B> ,  <C>,  op  <D>  fpom  tha  papopta  manu,  a 
acpaan  appaapa  tadilch  confipma  tha  uaap 'a  choica  and  givaa 
tha  uaap  an  oppoptunity  to  chooaa  whathap  to  aand  tha  papopt 
to  tha  ppintap  op  acpaan,  op  almply  to  abopt  tha  papopt.  At 
thia  point,  if  tha  uaap  ppaaaaa  <P> ,  tha  papopt  will  ba  aant 
to  tha  ppintap.  If  an  <S>  ia  ppaaaad,  tha  papopt  will  ba 
aant  to  tha  acpaan.  If  a  <Q>  la  ppaaaad,  ElfIS  will  patupn 
tha  uaap  to  tha  AiP  Fopca  Fopm  600  Rapopta  manu. 

Tha  uaap  can  alao  call  up  a  Halp  ppogpam  which  ppovidaa 
infopmation  on' tha  AiP  Fopca  Fopm  600  papopta.  Finally,  tha 
uaap  can  quit  tha  Alp  FoPca  Fopm  600  papoPta  modula  and 
patupn  to  tha  AIp  FoPca  Fopm  600  main  manu.  Figupa  14  ia  a 
flowchapt  of  tha  ppogpam  logic  fop  tha  Aip  Fopca  Fopm  600 
papopta  poutlna  (600RPT.PRO} . 

Tablaa  of  Allowancaa  Ravi aw  Liat  Manu.  If  tha 
uaap  chooaaa  tha  lattap  B  fpom  tha  main  manu,  tha  Tablaa  of 
Allowancaa  Ravlaw  Liat  manu  will  appaap.  Figupa  16  la  a 
facaimlla  of  thia  oianu.  Fpom  thia  manu,  tha  uaap  can  add, 
updata ,  OP  dalata  pacoPda  fpom  tha  Tabla  of  Allowancaa 
Ravlaw  Liat.  In  addition,  thapa  ia  a  aat  of  papopta 
ppogpammad  into  tha  ayatam  which  can  ba  callad  and  aithap 
ppintad  OP  aant  to  tha  computap  acpaan.  Tha  uaap  can  alao 


TABLES  OF  ALLOWANCES  LIST 

DATE  TIME 

08/2VB8  09:14i31 


(Enter  Sctoctlon  (A  -  D,  Hr  Qh  :) 


7igw  IS.  TAblttE  of  Allowonooa  Boviow  Llat  Monu 


call  up  a  Halp  ppogram  which  ppovldaa  Infornatlon  on  tha 
Tablaa  of  Allowancaa  Kavlaw  Llat.  Finally,  tha  uaap  can 
quit  tha  Tablaa  of  Allowancaa  Baviaw  Llat  modula  and  paturn 
to  tha  main  manu.  Flgura  10  la  a  flowchart  of  tha  program 
logic  for  tha  Tablaa  of  Alloimncaa  Baviaw  Llat  atartup 
routina  (TA.PBQ) . 

Addlnd  a  Bacord.  If  tha  uaar  chooaaa  tha 
lattar  <A>  from  tha  Tablaa  of  Allowanca  Baviaw  Llat  llanu,  an 
Input  acraan  will  appaar  with  blank  apacaa  baalda  tha  common 
namaa  of  tha  Tablaa  of  Allowancaa  Baviaw  Llat  data  alamanta. 
Flgiira  17  la  a  facalmlla  of  thla  acraan.  Inputa  ara  arror 
chackad  to  tha  maximum  axtant  poaalbla.  For  axan^la,  alnca 
tha  Tabla  of  Allowancaa  Numbar  la  alwaya  a  thraa-dlglt 
numarlc,  only  thraa  numarlc  charactara  will  ba  accaptad  by 
tha  ayatam.  Whan  tha  uaar  haa  complatad  tha  acraan  Inputa, 
EMIS  will  aak  tha  uaar  If  tha  Inputa  ara  corract.  It  any  of 
tha  Inputa  la  not  corract,  tha  uaar  Inputa  an  <1I>.  Tha  uaar 
la  than  aakad  If  ha/aha  would  Ilka  to  contlnua.  At  thla 
point.  If  an  <N>  la  Input,  tha  EMIS  raturna  tha  uaar  to  tha 
Tablaa  of  Allowancaa  Baviaw  Llat  manu.  If  a  <Y>  la  Input, 
tha  program  loopa  to  tha  top  of  tha  Input  acraan  and  raturna 
control  of  tha  kayboard  to  tha  uaar.  Whan  tha  uaar 
complataa  tha  Input  acraan  and  praaaaa  <Y>  In  raaponaa  to 
tha  ayatam’ a  quaatlon  concarnlng  tha  corractnaaa  of  tha 
Inputa,  tha  data  Input  by  tha  uaar  ara  addad  to  tha  Tablaa 
of  Allowancaa  Baviaw  Llat  databaaa.  At  thla  point,  EMIS 
aaka  tha  uaar  if  ha/aha  haa  anothar  racord  to  Input.  If  tha 
anawar  la  <II>,  tha  ayatam  raturna  tha  uaar  to  tha  Tablaa  of 
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AlloiMno«a  Raviaw  Liat  manu.  If  tha  ana«*ap  la  <Y>  ,  EMI3 
loopa  back  to  a  blank  input  acnaan.  Figupa  18  la  a 
flowpchapt  of  tha  ppogpam  logic  fop  tha  Tablaa  of  Allowancaa 
Bavlaw  Llat  add  poutlna  (TAADD.PBQ) . 

Updatlnd  a  Hacopd.  If  tha  uaap  ehooaaa  tha 
lattap  <B>  fpom  tha  Tablaa  of  Allowancaa  Bavlaw  Llat  Manu, 
an  Input  acpaan  will  appaap  with  blank  apaoaa  baalda  tha 
naoiaa  of  tha  Tablaa  of  Allowancaa  Bavlaw  Llat  data  alamanta. 

Flgupa  19  la  a  facalmlla  of  thla  acpaan.  At  tha  bottom  of 
tha  acpaan,  tha  uaap  will  ba  ppomptad  to  ppovlda  tha  Tabla 
of  Allowancaa  Hua^ap  and  Publication  Data  of  tha  pacopd  to 
ba  updatad.  Aftap  tha  uaap  inputa  tha  contpol  numbap,  EMIS 
aaapchaa  tha  Tablaa  of  Allowancaa  databaaa  fop  tha  pacopd 
with  that  Tabla  of  Allowancaa  numbap  and  publication  data. 

If  tha  ayatam  cannot  locata  tha  pacopd  In  tha  databaaa,  tha 
uaap  la  notlflad  and  aakad  If  ha/aha  would  Ilka  to  Input 
anothap  TA  numbap  and  publication  data.  If  tha  anawap  la  <N> 
to  thla  quaatlon,  EMIS  patupna  tha  uaap  to  tha  Tablaa  of 
Allowancaa  Bavlaw  Llat  manu.  If  tha  anawap  la  <Y> ,  tha 
ayatam  ppompta  tha  uaap  fop  a  naw  TA  numbap  and  publication 
data.  If  EMIS  locataa  tha  paquaatad  pacopd.  It  dlaplaya  tha 
data  contalnad  In  that  pacopd  on  tha  acpaan.  Tha  uaap  la 
than  aakad  If  tha  dlaplayad  pacopd  la  tha  coppact  pacopd. 

If  tha  anawap  la  <Y>,  tha  ayatam  loopa  to  tha  top  of  tha 
adit  acpaan  and  patupna  contPOl  of  tha  kayboapd  to  tha  uaap. 

If  tha  anawap  la  <N>,  tha  uaap  la  than  aakad  If  ha/aha  would 
Ilka  to  contlnua.  A  paply  of  <N>  paaulta  In  tha  ayatam 
patupnlng  tha  uaap  to  tha  Tablaa  of  Allowancaa  Bavlaw  Llat 
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Figure  18.  Flofvohart  of  tho  Tobloa  of  Allotwanoaa  Ravi 
Llat  Add  Boutina  (TAADO.PBO) 
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Mnu.  li  tb*  AnflMP  la  <Y> ,  BMIS  again  ppompta  tha  user  for 
tha  TA  numbap  and  publication  data  of  tha  pacopd  to  ba 
updatad.  Whan  tha  uaap  complataa  tha  adit  acpaan  and 
ppaaaaa  <Y>  in  paaponaa  to  tha  ayataM’a  quaatlon  eoncapnlng 
tha  ooppaotnaaa  of  tha  Inputa,  tha  apppopplata  pacopd  la 
updatad  In  tha  Tablaa  of  Allowancaa  Ravlaw  Llat  databaaa. 

At  thia  point,  Ellis  aaka  tha  uaap  If  ha/aha  vianta  to  updata 
anothap  pacopd.  If  tha  anawap  la  <ll> ,  tha  ayatam  patupna 
tha  uaap  to  tha  Tablaa  of  Allowancaa  Ravlaw  Llat  manu.  If 
tha  anawap  la  <Y>,  tha  ayatam  ppompta  tha  uaap  fop  tha  TA 
numbap  and  publication  data  of  a  pacopd  to  ba  updatad. 

Flgupa  20  la  a  flowchapt  of  tha  ppogpam  logic  fop  tha  Tablaa 
of  Allowancaa  adit  poutlna  (TABDT.PRQ). 

Dalatina  a  Raeopd.  If  tha  uaap  chooaaa  tha 
lattap  <C>  from  tha  Tablaa  of  Allowancaa  Ravlaw  Llat  Manu,  a 
acpaan  will  appaap  with  blank  apacaa  baalda  tha  namaa  of  tha 
Tablaa  cf  Allowancaa  Ravlaw  Llat  data  alamanta.  Plgupa  21 
la  a  facalmlla  of  thla  acpaan.  At  tha  bottom  of  tha  acpaan, 
tha  uaap  will  ba  ppomptad  to  ppovlda  tha  Tabla  of  Allowancaa 
numbap  and  publication  data  of  tha  pacoPd  to  ba  dalatad. 
Aftap  tha  uaap  Inputa  tha  TA  numbap  and  publication  data, 
tha  ayatam  aaapchaa  tha  Tablaa  of  Allowancaa  Ravlaw  Llat 
databaaa  fop  tha  pacopd  with  that  TA  numbap  and  publication 
data.  If  tha  ayatam  cannot  locata  tha  pacopd  In  tha 
databaaa,  tha  uaap  la  notlfiad  and  aakad  If  ha/aha  would 
Ilka  to  Input  anothap  contpol  numbap.  If  tha  anawap  la  <1I> 
to  thla  quaatlon,  EMIS  patupna  tha  uaap  to  tha  Tablaa  of 
Allowancaa  Ravlaw  Llat  manu.  If  tha  anawap  la  <Y>,  tha 


80 


V  TA^RQ 


Tables  of  Allowances  Delete  Routine 


Tabto  of  Allowances:  029  Publioation  Date:  6103 

Oats  Rscsivsd:  6174  Oats  Forwarded:  6174 

Forwarded  To:  7  Suspense  Date:  6204 

Date  Returned:  6197 


Are  You  Sure  Ymi  Want  To  Delete  This  Record?  (Y/N)  _ 


Fisup*  ai.  T»bl««  of  Allow»ne*a  Savtcw  Llat  Oalat* 

Seraan 


ay«t*B  pponpta  tha  uaar  for  a  nat*  TA  numbar  and  publication 
data.  If  tha  ayatam  locataa  tha  raquaatad  racord,  It 
dlaplaya  tha  data  contalnad  In  that  racord  on  tha  acraan. 

Tha  ayatam  than  aaka  If  tha  dlaplayad  racord  la  tha  racord 
tha  uaar  wanta  to  dalata.  If  tha  anawar  la  <H> ,  tha  uaar  la 
aalcad  If  ha/aha  wlahaa  to  contlnua.  If  tha  anawar  la  <N> , 
tha  EMIS  raturna  tha  uaar  to  tha  Tablaa  of  Allowanoaa  Bavlaw 
Llat  manu.  If  tha  anawar  la  <Y> ,  tha  ayatam  prompta  tha 
uaar  for  a  naw  Tabla  of  Allowanoaa  numbar  and  publication 
data.  Whan  ElfIS  flnda  and  dlaplaya  a  racord  and  tha  uaar 
afraaa  that  tha  racord  ahould  ba  dalatad,  tha  uaar  la  than 
aakad  to  confirm  tha  dalatlon  action.  If  tha  uaar  again 
anawara  <Y> .  EMIS  will  dalata  tha  racord  and  notify  tha  uaar 
that  tha  racord  haa  baan  dalatad.  On  tha  othar  hand,  if  tha 
anawar  la  <M>,  tha  ayatam  aaka  tha  uaar  If  ha/aha  wlahaa  to 
contlnua.  A  raply  of  <E>  raaulta  In  tha  ayatam  raturnlng 
tha  uaar  to  tha  Tablaa  of  Allowancaa  Bavlaw  Llat  manu.  If 
tha  anawar  la  <Y> ,  tha  ayatam  again  prompta  tha  uaar  for  tha 
Tabla  of  Allowancaa  nuBd)ar  and  publication  data  of  tha 
racord  to  ba  dalatad.  Aftar  a  racord  la  dalatad,  EMIS  aaka 
tha  uaar  if  ha/aha  wanta  to  dalata  anothar  racord.  If  tha 
anawar  la  <H> ,  tha  ayatam  raturna  tha  uaar  to  tha  Tablaa  of 
Allowancaa  Bavlaw  Llat  manu.  If  tha  anawar  la  <Y>,  tha 
ayatam  prompta  tha  uaar  for  tha  Tabla  of  Allowancaa  numbar 
and  publication  data  of  a  racord  to  ba  dalatad.  Flgura  22 
la  a  flowchart  of  tha  program  logic  for  tha  Tablaa  of 
Allowancaa  Bavlaw  Llat  dalata  routlna  (TADEL.PBQ). 


Flgus>«  22. 


Flovfohapt  of  th*  T*bl 
Liat  Dolota  Boutin* 


H*vl*w 

(TAOSL.PBQ) 
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R*Dort«  tUnu.  If  th«  ua«r  chooa«s  th«  l«tt«r 
<D>  froa  th*  Tablaa  of  Alloitancaa  Baviaw  Llat  nianu,  tha 
Tablaa  of  Allowancaa  Raviaw  Llat  Raporta  manu  will  appaar. 
PlRura  23  la  a  faoalailla  of  tbla  bmhu.  From  thla  manu,  tha 
uaap  can  aand  to  tha  ppintan  op  to  tha  acpaan  foup  dlffapant 
typaa  of  papopta.  Rapopta  can  ba  ganapatad  vdilch  ppovida 
data  on  all  of  tha  Tablaa  of  Allowaneaa  In  tha  databaaa , 
Tablaa  of  Allowanoaa  which  apa  undap  pavlaw  (a  blank  patupn 
data) ,  Tablaa  of  Allowaneaa  imdap  pavlaw  fop  longap  than  20 
daya,  and  Tablaa  of  Allowanoaa  by  Tabla  of  Allowanoaa 
nuBd>ap . 

Aftap  tha  uaap  aalaeta  a  paptlculap  typa  of  papopt  by 
ppaaalng  <A>,  <B> ,  <C> ,  op  <D>  fpom  tha  papopta  Mnu,  a 
acpaan  appaapa  which  oonflpma  tha  uaap 'a  cholca  and  glvaa 
tha  uaap  an  oppoptunlty  to  chooaa  whathap  to  aand  tha  papopt 
to  tha  pplntap  op  acpaan,  op  airaply  to  abopt  tha  papopt.  At 
thla  point.  If  tha  uaap  ppaaaaa  <P> ,  tha  papopt  will  ba  aant 
to  tha  pplntap.  If  an  <S>  la  ppaaaad,  tha  papopt  will  ba 
aant  to  tha  acpaan.  If  a  <Q>  la  ppaaaad,  ElflS  will  patupn 
tha  uaap  to  tha  Tablaa  of  Allowaneaa  Ravlaw  Llat  Rapopta 
manu. 

Tha  uaap  can  alao  call  up  a  Halp  ppogpam  which  ppovidaa 
Infopmatlon  on  tha  Tablaa  of  Allowaneaa  Ravlaw  Llat  papopta. 
Finally,  tha  uaap  can  quit  tha  Tablaa  of  Allowaneaa  Ravlaw 
Llat  papopta  modula  and  patupn  to  tha  Tablaa  of  Allowaneaa 
Ravlaw  Llat  manu.  Flgupa  24  la  a  flowchapt  of  tha  ppogpam 
logic  fop  tha  Tablaa  of  Allowaneaa  papoPta  poutlna 
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PlowahApt  of  tho  Tabloa  of  Allowaneoa 
Li at  Bapopta  Boutina  (TABPT.PBO) 


Bavi 


Conf Hwtlon  Fil«  itenu.  If  th«  ua«r 

ehooaaa  tha  lattar  C  from  tha  main  manu,  tha  Configuration 
Data/Raauma  Pila  manu  will  appaar.  Pigura  25  ia  a  faeaimlla 
of  thia  manu.  From  thia  manu,  tha  uaar  can  add,  updata,  or 
dalata  racorda  from  tha  Configuration  Data/Raauma  FI la.  In 
addition,  thara  la  a  aat  of  raporta  prograauaad  into  tha 
ayatam  whlah  can  ba  cal lad  and  aithar  printad  or  aant  to  tha 
coB^utar  acraan.  Tha  uaar  can  alao  call  up  a  Halp  program 
which  provldaa  information  on  tha  Configuration  Data/Raauma 
Flla.  Finally,  tha  uaar  can  quit  tha  Configuration 
Data/RaauBM  Fila  modula  and  raturn  to  tha  main  manu.  Figura 
26  la  a  flowchart  of  tha  program  logic  for  tha  Configuration 
Data/Raauma  Fila  atartup  routlna  (RSS.PRQ) . 

Adding  a  Racord.  If  tha  uaar  chooaaa  tha 
lattar  <A>  from  tha  Configuration  Data/Raauma  Fila  Manu,  an 
input  acraan  will  appaar  with  blank  apacaa  baaida  tha  common 
namaa  of  tha  Configuration  Data/Raauma  F#ia  data  alamanta. 
Figura  27  ia  a  faeaimlla  of  thia  acraan.  Whan  tha  uaar  haa 
complatad  tha  acraan  Inputa,  EMIS  will  aak  tha  uaar  if  tha 
Inputa  ara  corract.  If  any  of  tha  Inputa  la  not  corract, 
tha  uaar  inputa  an  <N> .  Tha  uaar  la  than  aakad  if  ha/aha 
would  lika  to  continua.  At  thia  point,  if  an  <N>  ia  input, 
tha  EMIS  raturna  tha  uaar  to  tha  Configuration  Data/Raaxima 
Fila  manu.  If  a  <Y>  ia  input,  tha  program  loopa  to  tha  top 
of  tha  input  acraan  and  raturna  control  of  tha  kayboard  to 
tha  uaar.  Whan  tha  uaar  complataa  tha  input  acraan  and 
praaaaa  <T>  in  raaponaa  to  tha  ayatam’ a  quaation  concarning 
tha  corractnaaa  of  tha  Inputa,  tha  data  input  by  tha  uaar 
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Figur*  28.  Flowchart  of  th*  Configuration  Data/R«auma 
File  Startup  Routlna  (SSS.Paa) 


CONFIGURATION  DATA  ADD  ROUTINE 
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«r«  «dd*d  to  tho  Configuration  Data/Baauoio  Fila  databaaa. 

At  thia  point,  BlilS  acka  tha  uaar  if  ha/aha  haa  anothar 
raoord  to  input.  If  tha  anatvar  ia  <N> ,  tha  ayatam  raturna 
tha  uaar  to  tha  Configuration  Data/Raauma  Fila  manu.  If  tha 
anaivar  ia  <Y>,  EMI3  loopa  back  to  a  blank  input  acraan. 
Figura  28  ia  a  flo««chart  of  tha  program  logic  for  tha 
Configuration  Data/Raauma  Fila  add  routina  (RESADD.PRO) . 

Opdatind  a  Raoord .  If  tha  uaar  chooaaa  tha 
lattar  <B>  from  tha  Configuration  Data/Raauma  Fila  lianu,  an 
input  acraan  will  appaar  with  blank  apacaa  baaida  tha  namaa 
of  tha  Configuration  Data/Raauma' Fila  data  alamanta.  Figura 
20  la  a  facaimila  of  thia  acraan.  At  tha  bottom  of  tha 
acraan,  tha  uaar  will  ba  promptad  to  provide  tha  office 
aymbol  of  tha  record  to  ba  updated.  After  tha  uaar  inputa 
tha  office  aymbol,  EMIS  aaarchaa  tha  Configuration 
Data/Raauma  Fila  databaaa  for  tha  record  with  that  office 
aymbol.  If  tha  ayatam  cannot  locate  tha  record  in  tha 
databaaa,  tha  uaar  la  notified  and  aakad  if  ha/aha  would 
like  to  input  anothar  office  aymbol.  If  tha  anawar  ia  <N> 
to  thia  quaatlon,  EMIS  raturna  tha  uaar  to  tha  Configuration 
Data/Raa\MM  Fila  atanu.  If  tha  anawar  ia  <Y>  ,  tha  ayatam 
prompta  tha  uaar  for  a  new  office  aymbol.  If  EMIS  locates 
tha  raquaatad  record,  it  diaplaya  tha  data  contained  in  that 
record  on  tha  acraan.  Tha  uaar  is  than  aakad  if  tha 
displayed  record  ia  tha  correct  record.  If  tha  anawar  la 
<Y> ,  tha  ayatam  loopa  to  tha  top  of  tha  adit  screen  and 
raturna  control  of  tha  keyboard  to  tha  uaar.  If  tha  anawar 
ia  <N>,  tha  uaar  is  than  aakad  if  ha/aha  would  like  to 
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FtgUP*  2®. 


o^h»Pt  of  tho  Confliuratlon  D»to/Bo.u0« 

f  oCRAJiD  .  PRO) 


CONFIGURATION  DATA  £DIT  ROUTINE 


Offiea  Symbol:  2760ABMr/MA 

Senior  Grade:  06  Officera:  tl 

Enliated:  612 

Authoriied  TA'a:  467  462 

636 

Buildinga:  14 

16  16  32 

261 

Square  Feet  17346 

Mobility  Taakinga 

Org/Shop  A-Bag 

B^-Bag  U-Bag 

C-Bag 

niAC 

41 

0 

41 

41 

HIAT 

31 

31 

31 

31 

HCR 

19 

19 

19 

19 

tllFL 

79 

79 

79 

79 

ItHQ 

73 

42 

73 

73 

ItlTT 

26 

26 

26 

26 

HITL 

62 

63 

62 

62 

Ent*r  Offic*  Symbol  <6.g.  SSOOABW/SV):  2760ABW/MA 


Flgupo  30.  Configuration  Data/Hoaun*  Plla  Kdlt  Seraan 
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aontlnu*.  A  r*ply  of  <M>  poaulto  In  tho  aystom  poturning 
tha  uaap  to  tha  Configuration  Data/Haauaa  Fila  manu.  If  tha 
anatMP  ia  <T> ,  SlflS  again  proaq^ta  tha  uaar  for  tha  offica 
aysbol  of  tha  raoopd  to  ba  updatad.  Mian  tha  uaar  oomplataa 
tha  adit  acpaan  and  praaaaa  <T>  in  paaponaa  to  tha  ayatam’a 
quaation  concapning  tha  copraotnaaa  of  tha  inputa,  tha 
apppoppiata  pacord  ia  updatad  in  tha  Configuration 
Data/RaauBM  Fila  databaaa.  At  thia  point,  EMIS  aaka  tha 
uaap  if  ha/aha  ttanta  to  updata  anothap  paeopd.  If  tha 
anavrap  ia  <1I>  ,  tha  ayataa  raturna  tha  uaap  to  tha 
Configuration  Data/Raauaa  Fila  aanu.  If  tha  anaiwap  ia  <Y>  , 
tha  ayataa  proapta  tha  uaar  for  tha  offica  ayabol  of  a 
pacord  to  ba  updatad.  Figura  30  ia  a  flowchart  of  tha 
ppogpaa  logic  for  tha  Configuration  Data/BaauaM  Fila  adit 
routina  (SSSBDT.PSO) . 

Palatini  a  Baeord.  If  tha  uaar  chooaaa  tha 
lattar  <C>  froa  tha  Configuration  Data/Baauaa  Fila  Manu,  a 
acraan  will  appaar  with  blank  apacaa  baaida  tha  naaaa  of  tha 
Configuration  Data/Baauaa  Fila  data  alaaanta.  Figura  31  ia 
a  facaiaila  of  thia  acraan.  At  tha  bottoa  of  tha  acraan, 
tha  uaar  will  ba  proo^tad  to  provida  tha  offica  ayabol  of 
tha  racord  to  ba  dalatad.  Aftar  tha  uaar  Inputa  tha  offica 
ayabol,  tha  ayataa  aaarchaa  tha  Configuration  Data/Baauaa 
Fila  databaaa  for  tha  racord  with  that  offica  ayabol.  If 
tha  ayataa  cannot  locata  tha  racord  in  tha  databaaa,  tha 
uaar  ia  notlflad  and  aakad  if  ha/aha  would  lika  to  input 
anothar  offica  ayabol.  If  tha  anawar  ia  <H>  to  thia 
quaation,  EMIS  raturna  tha  uaar  to  tha  Configuration 
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PRO 


FlfupR  30.  FlowobAPt  of  tho  Conf Ifuratlon  DotA/BoaiuM 
Filo  Edit  Soutlno  (SZSSDT.PSa) 
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CONFIGURATION  DATA  DELETE  ROUTINE 


Office  Symbol:  2760ABW/MA 
Sonior  Grade:  06  Offieert:  tl  Enlisted:  612 
Authorlied  TA*e:  467  462  638 
Buildingt:14  16  18  32  261 
Square  Feet  17348 


Mobility  Taakinga 


B/Shop 

A-Bag 

B-Bag 

U-Bag 

C-Bag 

niAC 

41 

0 

41 

41 

THAT 

31 

31 

31 

31 

HCR 

19 

19 

19 

19 

WL 

79 

79 

79 

79 

11610 

73 

42 

73 

73 

HITT 

26 

26 

26 

26 

HITL 

62 

63 

62 

62 

Are  Ybu  Sure  Ydu  Want  To  Delete  This  Record?  (Y/N)  .. 


31.  Conf IfurAtlon  Fll*  Scr«*n 
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D*ta/B«fl\UM  Pil*  iMnu.  If  th«  ana«f«r  im  <Y>,  th«  syat«m 
ppoB4>ta  th*  uaar  for  a  n«tr  offic*  symbol.  It  tho  syatom 
looataa  tha  raquaatad  racopd.  it  displays  tha  data  contalnad 
in  that  pacopd  on  tha  acpaan.  Tha  ays tarn  than  asks  if  tha 
dlaplayad  pacopd  is  tha  pacopd  tha  uaap  wants  to  dalata.  If 
tha  answap  la  <M>.  tha  uaap  la  aakad  if  ha/aha  wlahaa  to 
oontlnua.  If  tha  anawap  la  <1I> ,  tha  SlilS  patupna  tha  uaap 
to  tha  Conf igupatton  Data/SaauaM  PI la  manu.  If  tha  anawar 
la  <y> ,  tha  ayatam  ppompta  tha  uaap  fop  a  naw  offloa  symbol. 
Whan  sms  finds  and  displays  a  paoopd  and  tha  lisap  agpaaa 
that  tha  paaopd  should  ba  dalatad,  tha  uaap  la  than  aakad  to 
Gonflpm  tha  dalatlon  action.  If  tha  uaap  again  anawapa  <¥> , 
sms  will  dalata  tha  pacopd  and  notify  tha  uaap  that  tha 
pacopd  has  baan  dalatad.  On  tha  othap  hand.  If  tha  anawap 
la  <ir>,  tha  ayatam  asks  tha  uaap  if  ha/aha  wlahaa  to 
oontlnua.  A  paply  of  <lf>  paaulta  in  tha  ayatam  patupnlng 
tha  uaap  to  tha  Conf igupatlon  Data/Hasuma  Pila  manu.  If  tha 
answap  la  <T> ,  tha  ayatam  again  ppompta  tha  uaap  fop  tha 
of  flea  symbol  of  tha  pacopd  to  ba  dalatad.  Aftap  a  racopd 

la  dalatad,  EMIS  asks  tha  uaap  if  ha/sha  wants  to  dalata 

anothap  pacopd.  If  tha  anawap  is  <N> ,  tha  ayatam  patupna 

tha  uaap  to  tha  Conf Igupatlon  Oata/Basuma  PI la  manu.  If  tha 
anawap  la  <T> ,  tha  ayatam  ppompta  tha  uaap  fop  tha  of  flea 
symbol  of  a  pacopd  to  ba  dalatad.  Plgupa  32  la  a  flowchapt 
of  tha  ppogpam  logic  fop  tha  Conf Igupatlon  Data/Baauma  Plla 
dalata  poutlna  (BBSDBL.PBQ) . 

Bapopta  Manu.  If  tha  uaap  ehooaaa  tha  lattap 
<D>  fpom  tha  Conf Igupatlon  Data/Baauma  Plla  manu,  tha 
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Conf IguPAtlon  Data/RttauiM  Pll*  Control  Roporta  manu  will 
appaar.  Pigura  33  ia  a  facalmila  of  thla  oianu.  Prom  thla 
manu,  tha  uaar  can  aand  to  tha  prlntar  or  to  tha  scraan 
thraa  dlffarant  typaa  of  raporta.  Raporta  can  ba  ganaratad 
which  provida  data  on  all  of  tha  organizationa  in  tha 
databaaa,  by  of  flea  aymbol,  and  ahopa  authorizad  to  uaa  a 
Tabla  of  Allowaneaa  apacifiad  by  tha  uaar. 

Aftar  tha  iiaar  aalacta  a  particular  typa  of  raport  by 
praaaing  <A> ,  <B>,  or  <C> ,  from  tha  raporta  manu,  a  acraan 
appaara  which  confirma  tha  uaar'a  choica  and  givaa  tha  uaar 
an  opportunity  to  chooaa  whathar  to  aand  tha  raport  to  tha 
prlntar  or  acraan,  or  aimply  to  abort  tha  raport.  At  thla 
point,  if  tha  uaar  praaa-ia  <P> ,  tha  raport  will  ba  aant  to 
tha  prlntar.  If  an  <S>  ia  praaaad,  tha  raport  will  ba  aant 
to  tha  acraan.  If  a  <Q>  ia  praaaad,  BMIS  will  raturn  tha 
uaar  to  tha  Configuration  Data/Raauma  Pi la  Raporta  manu. 

Tha  uaar  can  alao  call  up  a  Halp  program  which  providaa 
information  on  tha  Configuration  Data/Raavima  Pila  raporta. 
Pinally,  tha  uaar  can  quit  tha  Configuration  Data/Raauma 
Pila  raporta  modula  and  raturn  to  tha  Configuration 
Data/Raauaia  Pila  main  manu.  Pigura  34  ia  a  flowchart  of  tha 
program  logic  for  tha  Configuration  Data/Raauma  Pila  raporta 
routina  (RSSRPT.PRQ) . 

gquipmant  Cuatodian  Liat  Manu.  If  tha  uaar 
chooaaa  tha  lattar  D  from  tha  main  otanu,  tha  Equlpmant 
Cuatodian  Liat  manu  will  appaar.  Pigura  35  la  a  facalmila 
of  thla  manu.  Prom  thla  manu,  tha  uaar  can  add,  updata,  or 
dalata  racorda  from  tha  Equlpmant  Cuatodian  Liat.  In 
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OATP  time 

07/31/89  12:22:09 


lAl-  Ail  Ofvanlzstlon* 

IBl  Organization  By  Offio*  Symbol 
IC|  OrganTzalioii  By  Tabla  of  Allowanca 
[HI  Halp  -  How  To  Uaa  Thia  Syatam 
IQI  Quit 

[Entar  Salaction  (A  -  C,  Ht  Q):  J 

Flgura  33.  Conf IguPAtlon  Data/Raauaia  Plla  Raporta  Ifonu 


lOl 


Figure  34.  Floifchart  of  the  Conf Igupotlon  OAta/R«aujM 
Fila  Ropopta  Routlna  (RESRPT.PRO) 


EQUIPMENT  CUSTODIAN  LIST 

date  time 

08/21/88  09:02K)8 

lAl  Add  A  Cuttodian 
(Bl  Updat*  A  Cuatodlan 
Id  Oalata  A  Cuatodlan 
(Dl  Raporta 

M  Halp--  How  To  Uaa  Thia  Syatam 
IQI  Quit 

lEntar  Salactlon  (A  >  D,  H>  Q):  :! 

Figup*  3S.  Equlpaant  Cuatodlnn  Llat  Manu 


103 


a«t  of  roporta  prograauMd  fn^o  ^ha  aya^OBi  which  can  b# 
called  and  althar  ppintad  op  aant  to  tha  computar  acraan. 

Tha  uaar  can  alao  call  up  a  Halp  ppogram  which  provldaa 
InfopaMtlon  on  tha  Squipmant  Cuatodian  Liat.  Finally,  tha 
uaap  can  quit  tha  Equipment  Cuatodian  Llat  module  and  paturn 
to  tha  main  menu.  Pliupa  3d  la  a  flowchapt  of  tha  ppogpam 
logic  fop  tha  Equipment  Cuatodian  Llat  ataptup  poutlna 
(CUS . PRO) . 

Addlna  a  Racopd.  If  tha  uaap  chooaaa  tha 
lattap  <A>  fpom  tha  Equipment  Cuatodian  Llat  Menu,  an  Input 
acpaan  will  appaap  with  blank  apacaa  baa Ida  tha  common  namaa 
of  tha  Equipment  Cuatodian  Llat  data  alamanta.  Plgupa  37  la 
a  facalmila  of  thla  acpaan.  Tha  ayatam  Itaalf  updataa  tha 
Equipment  Cuatodian  Mumbap,  but  tha  pamalnlng  data  alamanta 
ape  Input  by  tha  uaap.  Znputa  are  arpop  chackad  to  tha 
maximum  extant  poaalbla.  Fop  example,  alnca  tha  Qpada  of 
tha  cuatodian  la  alwaya  a  two  chapactap  field  with  tha  flpat 
chapactap  being  alpha  and  tha  aacond  chapactap  being 
numaplc,  only  one  alpha  chapactap  followed  by  one  nuawplc 
chapactap  will  be  accepted  by  tha  ayatam.  Whan  tha  uaap  haa 
cofl^latad  tha  acpaan  Inputa,  EMIS  will  aak  tha  uaap  If  tha 
Inputa  ape  coppact.  If  any  of  tha  Inputa  la  not  coppact, 
tha  uaap  Inputa  an  <N>.  Tha  uaap  la  than  aakad  If  ha/aha 
would  Ilka  to  continue.  At  thla  point.  If  an  <H>  la  Input, 
tha  EMIS  patupna  tha  uaap  to  tha  Equipment  Cuatodian  Llat 
menu.  If  a  <Y>  la  Input,  tha  ppogpam  loopa  to  tha  top  of 
tha  Input  acpaan  and  patupna  contpol  of  tha  kayboapd  to  tha 
uaap.  Whan  tha  uaap  complataa  tha  input  acpaan  and  ppaaaaa 
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EQUIPMENT  CUSTODIAN  ADD  ROUTINE 


I 


Qrad#:  E7  Cuetodian  Number:  0243 
Name  (First,  Middle.  Last):  Dustin  D.  Poole 
Telephone:  63089  63090 


Projected  Departure  Date:  None 


Date  Trained:  7104 

Org/Shop  Code:  ttlAT 
Org/Shop  Code:  ttCR 
Org/Shop  Code:  tnHQ 

Org/Shop  Code: _ 

Org/Shop  Code: _ 

Or^Shop  Code: _ 

Or^Shop  Code: _ 

Org/Shop  Code: _ 


Primary/Altsrnate:  P 
Primary/Altemate;  P 
Primary /Alternate:  A 
Primary/ Alternate: . 
Primary /Alternate: . 
Primary/Alternate: . 
Primary/ Alternate: . 
Primary/Alternate; . 


Add  Another  Equipment  Custodian?  (Y/N)  _ 


Figure  37.  Equipment  Custodlen  Llet  Add  Screen 


I 

<T>  in  pnnpona*  to  tho  ayatom’a  quaatlon  conoapning  tha 

Goppaatnaaa  of  tha  Inputa,  tha  data  input  by  tha  uaap  apa 

addad  to  tha  Equipmant  Cuatodian  Liat  databaaa.  At  thia  I 

point,  EMIS  aaka  tha  uaap  if  ha/aha  haa  anothap  paoopd  to 

input.  If  tha  ana«MP  ia  <H>,  tha  ayatam  patupna  tha  uaap  to 

tha  Equipmant  Cuatodian  Liat  manu.  If  tha  anaivap  ia  <Y>,  I 

EMIS  Incpamanta  tha  EquipoMnt  Cuatodian  Muaibap  and  loopa 

back  to  a  blank  input  acpaan.  Figupa  38  ia  a  flowehapt  of 

tha  ppogpam  logic  fop  tha  Equipatant  Cuatodian  Liat  add  I 

poutina  (CUSADD.PRQ) . 

Dpdatind  a  Racopd .  If  tha  uaap  chooaaa  tha 
lattap  <B>  fpom  tha  EquipaMnt  Cuatodian  Liat  Manu,  an  input 
acpaan  will  appaap  with  blank  apacaa  baaida  tha  namaa  of  tha 
Equipmant  Cuatodian  Liat  data  alamanta.  Figupa  30  ia  a 
facaimila  of  thia  acpaan.  At  tha  bottom  of  tha  acpaan,  tha 
uaap  will  ba  ppomptad  to  ppovida  tha  fipat  and  laat  Namaa  of 
tha  aquipmant  cuatodian  whoaa  pacopd  ia  to  ba  updatad. 

Aftap  tha  uaap  inputa  tha  fipat  and  laat  naaMa,  EMIS 
aaapchaa  tha  Equipmant  Cuatodian  Liat  databaaa  fop  tha 
pacopd  with  that  fipat  and  laat  nama.  If  tha  ayatam  cannot 
locata  tha  pacopd  in  tha  databaaa,  tha  uaap  la  not! f lad  and 
aakad  if  ha/aha  would  Ilka  to  input  anothap  fipat  and  laat 
nama.  If  tha  anawap  ia  <N>  to  thia  quaatlon,  EMIS  patupna 
tha  uaap  to  tha  Equipiaant  Cuatodian  Liat  manu.  If  tha 
anawap  ia  <Y>,  tha  ayatam  ppompta  tha  uaap  tor  a  naw 
aquipmant  cuatodian  nama.  If  EMIS  locataa  tha  paquaatad 
pacopd,  it  diaplaya  tha  data  containad  in  that  pacopd  on  tha 
acpaan.  Tha  uaap  la  than  aakad  if  tha  diaplayad  pacopd  ia 
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EQUIPMENT  CUSTODIAN  EDIT  ROUTINE 


Qrad«:  E7  CiMtodian  Number:  0243 

Naim  (First,  MkldlSb  iMih  Dustin  D.  Pools 

Tsisphons:  33089  63090 

Osis  Trsinsd:  7104  Projsotsd  Dspsrturs  Dsts:  Nons 

Org/Shop  Cods:  IHAT  Prlmsry/Altsrnsts:  P 
Org/Shop  Cods: 

Org/Shop  Cods: 

Org/8hop  Cods: 

Or^Shop  Cods: 

Or^Shop  Cods: 

Or^Shop  Cods: 

Org/Shop  Cods: 


Entsr  Custodlsn  Nsms  (First,  MIddls,  Last):  Dustin  D.  Pools 


Fifur*  30.  Equipment  Cuetodlan  Llat  Edit  Screen 


nCR  Prlmary/Altsmsts:  P 
mHQ  Prlmsry/Altsrnsts:  A 

_ Prlmsry/Altsrnsts: . 

_  Primsry/Altsmsts: . 

_  Prlmsry/Altsrnsts: . 

_ Primary/ Altsmsts: . 

_  Primsry/Altsmsts: . 
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th«  oorrcot  r«copd.  If  th«  anatwp  la  <T> ,  tha  ayataa  loopa 
to  tha  top  of  tha  adit  acraan  and  raturna  control  of  tha 
kayboard  to  tha  uaar.  If  tha  anawar  la  <H> ,  tha  uaar  ia 
than  aakad  if  ha/aha  would  Ilka  to  contlnua.  A  raply  of  <M> 
raaulta  In  tha  ayatan  raturnlng  tha  uaar  to  tha  Equlpiaant 
Ctiatodlan  Llat  aanu.  If  tha  anawar  ia  <Y> .  EMIS  again 
proi^ta  tha  uaar  for  tha  aquipaant  euatodian’a  nama  whoaa 
racord  ia  to  ba  updatad.  Whan  tha  uaar  coiq>lataa  tha  adit 
acraan  and  praaaaa  <¥>  in  raaponaa  to  tha  ayataa’a  quaation 
concarning  tha  corractnaaa  of  tha  inputa,  tha  appropriata 
racord  ia  updatad  in  tha  EquipiMnt  Cuatodlan  Liat  databaaa. 
At  thia  point,  EMIS  aaka  tha  uaar  if  ha/aha  wanta  to  updata 
anothar  racord.  If  tha  anaivar  ia  <H> ,  tha  ayataa  raturna 
tha  uaar  to  tha  Bquipaant  Ctiatodlan  Liat  wanu.  If  tha 
anawar  ia  <Y> ,  tha  ayataa  proapta  tha  uaar  for  tha  naaa  of 
tha  cuatodlan  tdioaa  racord  la  to  ba  updatad.  Figura  40  la  a 
flowchart  of  tha  prograa  logic  for  tha  Equlpaant  Cuatodlan 
Liat  adit  routlna  (CUSEOT.PRQ) . 

DalatinA  a  Racord.  If  tha  uaar  chooaaa  tha 
lattar  <C>  from  tha  Equipmant  Cuatodlan  Liat  Manu,  a  acraan 
will  appaar  with  blank  apacaa  baalda  tha  namaa  of  tha 
Equipmant  Cuatodlan  Liat  data  alamanta.  Figura  41  ia  a 
facaimila  of  thia  acraan.  At  tha  bottom  of  tha  acraan,  tha 
uaar  will  ba  promptad  to  provlda  tha  flrat  and  laat  namaa  of 
tha  aquipmant  cuatodlan  whoaa  racord  ia  to  ba  dalatad. 

Aftar  tha  uaar  inputa  tha  nama,  tha  ayatam  aaarchaa  tha 
Equlpaant  Cuatodlan  Liat  databaaa  for  tha  racord  with  that 
nama.  If  tha  ayatam  cannot  locata  tha  racord  in  tha 
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EQUIPMENT  CUSTODIAN  DELETE  ROUTINE 


Qrad#:  E7  Custodian  Numbor:  0243 

Nsfflo  (First.  Middls.  Last);  Dustin  D.  Poois 

Tsisphons:  63089  63000 

Oats  Trainsd:  7104  Projsctsd  Osparturs  Data:  Nona 

Org/Shop  Cods:  ttlAT  Primary/Altsrnats:  P 
Org/Shop  Cods:  11CR  Primary/Aitsmats:  P 
Org/Shop  Cods:  ItttQ  Primary/Altsrnats:  A 

Org/Sfiop  Cods: _ Primary/Altsrnats:  . 

Or^Shop  Cods*. _ Primary/ Aitsrnats:  - 

Or^Shop  Cods: _ Primary/Altsrnats:  - 

Or^Shop  Cods: _ Primary/Altsrnats:  . 

Or^Stiop  Cods: _ Primary/Altsrnats:  . 


Ars  Mmj  Surs  Yxi  Want  To  Osists  This  Rscord?  (Y/N)  _ 


Flfur*  41.  EqulpiMnt  Cu«todl«n  List  Dslst*  Screen 
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databASA,  tha  ummv  la  notlfiad  and  aakad  It  ha/aha  itould 


Ilka  to  Input  anothaa  naaa.  It  tha  anawaa  la  <M>  to  thla 
quaatlon,  BUIS  ratuana  tha  uaaa  to  tha  Bqulpaant  Cuatodlan 
Llat  aanu.  It  tha  anatvaa  la  <Y>,  tha  ayatan  paompta 
tha  xiaaa  toa  a  nat»  tlaat  and  laat  naaM.  It  tha  ayataa 
locataa  tha  aaquaatad  aaooad.  It  dlaplaya  tha  data  eontalnad 
In  that  aaooad  on  tha  aoaaan.  Tha  ayataa  than  aaka  It  tha 
dlaplayad  aaooad  la  tha  aaooad  tha  uaaa  wanta  to  dalata.  It 
tha  anawaa  la  <M>,  tha  uaaa  la  aakad  It  ha/aha  wlahaa  to 
oontlnua.  It  tha  anaiwaa  la  <lf> ,  tha  BlIIS  aatuana  tha  uaaa 
to  tha  BqulpaMnt  Cuatodlan  Llat  aanu.  It  tha  anawaa  la  <y> , 
tha  ayataa  paoapta  tha  uaaa  toa  a  naw  tlaat  and  laat  naaa. 
Whan  sms  tlnda  and  dlaplaya  a  aaooad  and  tha  uaaa  agaaaa 
that  tha  aaooad  ahould  ba  dalatad,  tha  uaaa  la  than  aakad  to 
oontlam  tha  dalatlon  aotlon.  It  tha  uaaa  again  anatvaaa  <y>  , 
EMIS  will  dalata  tha  aaooad  and  notlty  tha  uaaa  that  tha 
aaooad  haa  baan  dalatad.  On  tha  othaa  hand,  It  tha  anawar 
la  <N>,  tha  ayatan  aaka  tha  uaaa  it  ha/aha  wlahaa  to 
oontlnua.  A  aaply  ot  <N>  raaulta  in  tha  ayatam  aatuanlng 
tha  uaaa  to  tha  Squlpnant  Cuatodlan  Llat  manu.  It  tha 
anawaa  la  <T>,  tha  ayatam  again  paompta  tha  uaaa  toa  tha 
nama  ot  tha  aqulpnMnt  cuatodlan  whoaa  aaooad  la  to  ba 
dalatad.  Attaa  a  aaooad  la  dalatad,  EMIS  aaka  tha  uaaa  It 
ha/aha  wanta  to  dalata  anothaa  aaooad.  It  tha  anawaa  la 
<1I>  ,  tha  ayatam  aatuana  tha  uaaa  to  tha  Equlpmant  Cuatodlan 
Llat  manu.  It  tha  anawaa  la  <Y> ,  tha  ayatam  paompta  tha 
uaaa  toa  tha  tlaat  and  laat  namaa  ot  tha  aqulpmant  cuatodlan 
whoaa  aaooad  la  to  ba  dalatad.  Flguaa  42  la  a  tlowchaat  ot 


113 


th«  progPM  logic  for  th«  Equlpmont  Custodian  List  dolsts 
poutino  (CUSDBL.PBQ) . 

Ropopts  Monu.  If  ths  ussp  choosos  tho  lottsp 
<D>  fpom  ths  Equipissnt  Custodian  List  msnu,  ths  Equipmsnt 
Cvistodian  List  Contpol  Rspopts  nsnu  will  appsap.  Flgups  43 
is  a  facsimils  of  this  sMnu.  Fpon  this  sMnu,  ths  ussp  can 
ssnd  to  ths  ppintsp  op  to  ths  scpssn  foup  diffspsnt  typss  of 
pspopts.  RspoPts  can  bs  gsnspatsd  irttich  ppovids  data  on  all 
of  ths  custodians  in  ths  databass,  custodians  tpainsd  on 
ussP'Spscif isd  datss,  custodians  by  nans,  and  custodians  by 
opganization  and  shop  cods. 

Aftsp  ths  USSP  sslscts  a  papticulap  typs  of  pspopt  by 
ppsssing  <A> ,  <B> ,  <C> ,  OP  <0>  fpoa  ths  Pspopts  msnu,  a 
scpssn  appsaps  which  confipma  ths  ussp’s  choics  and  givss 
ths  USSP  an  oppoptunity  to  chooss  whsthsp  to  ssnd  ths  psport 
to  ths  ppintsP  OP  scpssn,  op  simply  to  abopt  ths  pspopt.  At 
this  point,  if  ths  USSP  ppsssss  <P>,  ths  pspopt  will  bs  ssnt 
to  ths  ppintsp.  If  an  <S>  is  ppssssd,  ths  pspopt  will  bs 
ssnt  to  ths  scpssn.  If  a  <Q>  is  ppssssd,  EMI3  will  pstupn 
ths  USSP  to  ths  Equipmsnt  Custodian  List  Rspopts  msnu. 

Ths  USSP  can  also  call  up  a  Hslp  ppogpam  which  ppovidss 
infopmation  on  ths  EquipsMnt  Custodian  List  Pspopts. 

Finally,  ths  ussp  can  quit  ths  Equipmsnt  Custodian  List 
pspopts  moduls  and  pstupn  to  ths  EquipsMnt  Ciistodian  List 
main  msnu.  Figups  44  is  a  flowchapt  of  ths  ppogpam  logic 
fop  ths  Bquipoisnt  Custodian  List  pspopts  poutins 


(CUSRPT.PRQ) . 


ycuapRey*^ 


EQUIPMENT  CUSTODIAN  REPORTS 

OATS  TIME 

08/04/88  08:64:18 


lEntar  Selection  (A  •  D,  Hi  Oh  J 


Figure  43.  Equipment  Custodian  List  Beports  Menu 


Flgur*  44.  Flowchart  of  the  Equipment  Cuctodlen  Lie 
Report*  Routine  (CtlSRPT. PRO) 


V. 


Concluaiona .  and  n^^KMum^ndatlona 


Tha  objactlva  of  thla  atudy  waa  to  apply  tha  princlplaa 
of  databaaa  managamant  to  tha  aianagamant  of  Alp  Fopca 
aqulpmant  itaata,  with  tha  ovapall  goal  balng  a  raductlon  in 
appop  pataa  and  tpalnlng  tlaMa  at  tha  patall  laval.  Expapta 
in  tha  pollolaa  and  ppocadupaa  which  maka  up  tha  Alp  Fopca 
Equipatant  Managaatant  Syataa  ppovidad  Infopaaatlon  about  tha 
ayataai  along  with  thalp  concapna  about  ppocadupaa  which 
paault  in  high  oppop  pataa  and  tpalnlng  tiaaaa.  Thia 
infopaaatlon  «aaa  analyzad,  and  a  Hat  of  candidataa  fop 
incluaion  in  a  aicpocoaq>utap-baaad  aaanagaaiant  infopaation 
ayataa  waa  davalopad.  Than,  uaing  a  fopaaal  aaathod  of 
infopaaatlon  ayataew  davalopaaant .  a  aaanagaaaant  infopaiatlon 
ayataa  cal  lad  tha  Equipaant  llanagaaaant  Infopaation  Syataa 
(EMIS)  waa  daaignad.  davalopad,  and  taatad.  EIIZS  will  ba 
furthap  taatad. and  pafinad  by  tha  papaonnal  in  tha 
Dipactopata  of  Supply  at  tha  AlP  Fopca  Loglatlca  Managaaant 
Cantap  ppiop  to  diatpibution  to  tha  Alp  Fopca  aajop 
coauBanda . 

Concluaiona 

Duping  thia  atudy,  fiva  paaaapch  quaationa  wapa 
anawapad  and  a  managaaMnt  infopmation  ayatam  waa  davalopad. 
Thaaa  activitlaa  paaultad  in  aavapal  concluaiona  baing 
dpawn. 

Thapa  apa  aavan  najop  taaka  papfopaad  in  tha  Equipmant 
Managanant  Sactlon  which  contpibuta  to  high  oppop  pataa  and 
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•xt«nd«d  tPAlning  tliMX.  Four  of  th«  taaka  war*  found  to  bo 
good  condldotoa  fop  automation  on  a  mlcpocomputop  duo, 
pplmaplly,  to  tho  natupo  of  tho  data  uaod  in  thoao  taaka . 

Tho  pomaining  thpoo  taaka  wopo  found  to  bo  poop  candidatoa 
fop  automation  on  atand-alono  micpocomputopa .  Tho 
automation  of  tho  lattop  thpoo  taaka  will  poquipo 
apodal izod  hapdwapo  op  communicationa  intopfacoa  with 
mainframo  computopa .  Foptunatoly,  thoao  taaka  will  bo 
automatod  by  a  now  computop  ayatom,  callod  tho  Aip  Forco 
Equipmont  Managomont  Syatom  (AFBMS) ,  boing  dovolopod  by  tho 
AiP  Fopco.  AFEMS  ia  achodulod  fop  lBq>lomontation  in  1083. 

Thpoo  of  tho  foup  taaka  found  to  bo  good  candidatoa  fop 
automation  wopo  includod  in  ElfIS.  Tho  foupth  taak,  tho  AiP 
Fopco  Fopm  001  coptifiod  filo,  will  bo  addod  to  tho  ayatom 
by  AFLIIC  popaonnol.  Whllo  tho  Tabloa  of  Allowancoa  povlow 
ppocoaa  waa  not  found  to  bo  a  good  candldato  fop  automation 
on  a  micpoconq>utop ,  thia  ppocodupo  waa  doclapod  by  all 
oxpopta  intopviowod  to  bo  tho  moat  impoptant  oquipmont 
managomont  ppocodupo  nogativoly  impacting  oppop  patoa  and 
tpalnlng  timoa.  Slnco  AFEMS  will  not  ppovido  automatod 
Tablo  of  Allowancoa  poviow  capabilltioa  fop  aovopal  yoapa , 
tho  managomont  and  achoduling  of  thia  ppocoaa  waa  includod 
in  EMIS. 

Sovopal  micpocomputop'baaod  databaao  managomont 
aoftwapo  packagoa  wopo  compapod  ppiop  to  aoftwapo 
dovolopmont.  Bocauao  thopo  la  a  lapgo  baao  of  knowlodgo  in 
tho  Aip  Fopco  fop  thia  packago ,  and  tho  aoftwapo  will  bo 
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oompatibltt  with  dBASB  IV  (tm)  *nd  ia  ava.1  labia  on  OSA 
contpaeta,  EMIS  waa  wplttan  In  dBASE  III  PLUS  (tm)  program 
coda.  Tha  programa  which  compriaa  ElilS  currantly  add  to 
approxiouitaly  100  kilobytaa.  Thia  aiza  will  allow  EMIS,  in 
conjxjnction  with  dBASE  III  PLUS  (tm)  to  oparata  on  tha  Air 
Korea  atandard  amall  computar  with  513  kilobytaa  of  Random 
Accaaa  Mamory ,  a  20-magabyta  or  largar  hard  diak,  and  a 
prlntar. 

EMIS  haa  baan  axamlnad  by  aquipmant  tachnlelana 
aaaignad  to  tha  WPAFB  Equlpmant  Managamant  Saction  and  by 
mambara  of  tha  AFLC  Command  Equipntant  Managamant  Taam.  Tha 
raaponaa  from  both  groupa  haa  baan  poaitiva,  and  eopiaa  of 
tha  EMIS  programa  hava  baan  givan  to  thaaa  officaa  for 
furthar  taating  and  raviaw. 

n^gftMiii^ndationa 

Bacommandationa  for  furthar  work  focua  on  two  araaa. 

Tha  flrat  ia  tha  araa  of  Air  Korea  aquipmant  managamant. 

Tha  aacond  la  tha  araa  of  potantial  mlcrocomputar-baaad 
databaaa  applicatlona  to  Air  Korea  aupply  oparationa. 

Air  Korea  Eouipniant  Manaaamant .  Tha  naw  Air  Korea 
Equlpoiant  ManagaaMnt  Syatam  achadulad  for  conflation  in  1993 
will  go  a  long  way  toward  improving  tha  af f aetlvanaaa  and 
afficianey  of  aquipmant  managamant  tachnlelana.  AKEMS  will 
ppovlda  an  automatad  intar faea  batwaan  tha  ratal 1  and 
wholaaala  lavala  and  will  graatly  raduoa  tha  paparwork  which 
flowa  batwaan  tha  t«vo.  AKEMS  will  alao  provida  tachnlelana 
with  tha  capability  to  perform  Tablaa  of  Allowaneaa  ravlawa 
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\ifllng  aomput«rlztt<i  data  Inataad  of  microfloha  data.  AFEHS 
will  ba  daalgnad  to  inaka  tha  tvopk  aaalar  for  a  paraon  to 
con^lata.  Untoptunataly ,  in  many  caaaa ,  AFEMS  will  placa 
wopk  on-llna,  not  allmlnata  it.  AFEIfS  will  automata  tha 
Tablaa  of  Allowancaa  paviaw,  Equipmant  Out-of -Balanca 
paviaw,  and  Daily  Tpanaaotion  Rapoptlng  ppocaaaaa  ao  that 
tha  data  ia  aeoaaaibla  to  taohniciana  and  tha  wopk  ia  aaay 
to  accompliah.  Howavap,  thaaa,  and  othap  aquipmant 
managamant  taaka ,  naad  to  ba  atudiad  fop  waya  to  automata 
tha  taak,  not  juat  put  tha  data  on>lina.  7op  axampla,  tha 
Tablaa  of  Allowancaa  paviaw  ppoeaaa  paquipaa  a  coi^>apiaon  of 
Standapd  Baaa  Supply  Syatam  pacopda  with  aach  Tabla  of 
Allowancaa  whan  that  TA  ia  updatad.  Tha  paviaw  ppoeaaa 
itaalf  could  ba  accompliahad  by  tha  oomputap  and,  whan 
diacpapanciaa  apa  found,  aunnagaaMint  noticaa  could  ba  aant  to 
aquipmant  tachfticiana  and  aquipmant  cxiatodiana  to  notify 
tham  of  paquipad  action.  A  atudy  of  aquipmant  ppocadupaa , 
with  tha  goal  of  tpuly  automating  thoaa  ppocadupaa,  not  Juat 
placing  tham  on-lina,  ahould  ba  accoo^liabad  whila  tha  AFEMS 
davalopmant  affopt  ia  in  ita  infancy. 

Potantial  Databaaa  Applicationa  in  AiP  Fopca  Supply . 
Whila  AiP  Fopca  baaa  aupply  opganizatlona  apa  auppoptad  by 
tha  Spappy  1100/00  Phaaa  IV  con^putap  which  papfopma  SBSS 
opapationa,  thapa  apa  many  adminiatpativa  dutiaa  which  do 
not  fall  within  tha  pupviaw  of  tha  SBSS.  Moat  of  thaaa 
dutiaa  apa  paquipad  to  ba  accompliahad  on  a  pagulap  baaia. 
Fop  axaa^la,  funda  managapa  in  tha  Funda  Managamant  Saction 
of  baaa  aupply  apa  paaponaibla  fop  managing  tha  Qanapal 
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Support  Oporoting  Program  (QSOP) .  This  roqulroa  tracking 

•xpandlturoa  by  organization,  «»orking  with  organizational  j 

tunda  managara  to  foraeaat  future  axpandituraa ,  and 

identifying  potential  problema  through  trend  analyaia.  The 

Funda  Management  Section  doea  not  currently  have  any  j 

automated  aupport  for  managing  the  QSOP  (Bailey  and  Cohen, 

1088:3).  In  addition  to  the  (3SOP,  there  are  many  taaka  in 

baae  aupply  organizationa  which,  if  autoamted,  could  be  j 

acoompllahed  more  effectively  and  efficiently.  Theae 

include,  but  are  not  limited  to,  the  adminiatrative  taaka  in 

the  Docuatent  Control  Section,  the  Inapection  taaka  perforamd 

by  Procedurea  and  Standardization  peraonnel,  trend  analyaia, 

grapha,  and  briefing  charta  developed  by  the  Management 

Analyaia  Section,  and  the  many  fllea  kept  by  the  Cuatomer 

Support  Office,  Stock  Control  Section,  Demand  Proceaaing 

Section,  Separable  Aaaet  Control  Center,  War  Readineaa 

Sparea  Kit  Section,  Retail  Salea  Section,  and  the  Puela 

Branch.  In  addition,  there  ia  a  great  deal  of  training 

continually  being  adminlatered  to  aupply  cuatomera  aa  well 

aa  aupply  technieiana.  MlcrocoBq>uter*'baaed  ayatema  are 

capable  of  managing  thia  training,  and  aaaiatlng  in  the 

creation  of  training  lecturea  and  briefing  charta. 

Future  work  in  microcomputer-baaed  ayatema  ahould 
follow  a  rigoroua  aet  of  ayatema  development  atagea  like  the 
atagea  uaed  during  thia  reaearcb.  Thia  will  help  to  enaure 
the  final  product  meeta  the  needa  of,  and  ia  aatlafactory 
to,  the  intended  uaera. 
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Appendix  A:  Equipment  MenaAement  Iniormation  System 
Data  Dietionary 

The  EMIS  data  dictionary  is  organized  by  database.  The 
four  databases  are  AFFMdOO . DBF .  TA.DBF,  RES. DBF,  and 
CUS.DBF.  Within  each  database,  data  elements  are  sorted 
alphabetically  by  common  name.  The  template  column  reveals 
the  characters  EMIS  will  accept  as  inputs  to  that  field.  An 
'A‘  denotes  that  an  alpha  character  is  required,  a  ‘9‘ 
denotes  that  a  numeric  character  is  required,  and  an  'X' 
denotes  that  either  an  alpha  or  numeric  character  is 
allowed. 


AFFM600.DBF 


Common  Name 

Data  Element 

Type 

Length 

Template 

Completion  Action 

COMPL.ACT 

Char 

10 

xxxxxxxxxx 

Control  Number 

CONTROL.NR 

Num 

5 

9990 

Date  Forwarded 

FWD_DT 

Hum 

4 

9999 

Date  Received 

RCVD.DT 

Num 

4 

9999 

Date  Returned 

RTN  DT 

Hum 

4 

9999 

Detail  Number 

DETAIL 

Num 

4 

9999 

Forwarded  To 

FWD.TO 

Char 

X 

Nomenclature 

NAMi 

Char 

20 

XXXXXXXXXXXXXXXXXXXX 

Organization 

ORQ/SHOP 

Char 

5 

999AA 

Requested  Action 

ACTION 

Char 

3 

AAA 

Request  Number 

REQUEST.HR 

Hum 

6 

90999999 

Stock  Number 

STK  NR 

Char 

15 

9099XXXXXXXXAA 

Type  Code 

EQOiPCODE 

Char 

1 

A 

Common  Name 

TA.DBF 

Data  Element 

IX22. 

Length 

Template 

Date  Due 

TA.DUE 

Hum 

4 

9900 

Date  Forwarded 

TA_FWD_DT 

Num 

4 

9999 

Date  Published 

TA_DT 

Num 

4 

0999 

Date  Received 

TA.RCVD 

Num 

4 

9999 

Date  Returned 

TA.RTH 

Num 

4 

0999 

Forwarded  To 

TA_FWD_T0 

Char 

1 

X 

TA  Number 

TA_HR 

Num 

3 

999 

Common  Name 

Data 

RES. DBF 

Element 

Typs 

Length 

Template 

A  Bag 

ABAO 

Hum 

3 

999 

Auth  TA(1) 

TAl 

Num 

3 

999 

Auth  TA(2) 

TA2 

Hum 

3 

999 

Auth  TA(3) 

TA3 

Num 

3 

999 
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Autb  TA(4) 

TA4 

Mum 

3 

999 

Auth  TA(5) 

TA5 

Mum 

3 

999 

Auth  TA(6) 

TA6 

Mum 

3 

999 

Auth  TA(7) 

TA7 

Mum 

3 

999 

B  Ba« 

BBAO 

Mum 

3 

999 

Building( 1) 

BLOOl 

Mum 

4 

9999 

Building (2) 

BLI>G2 

Mum 

4 

9999 

BuildingO) 

BL003 

Mum 

4 

9999 

Building(4) 

BLDa4 

Mum 

4 

9999 

Building(5) 

BLOGS 

Mum 

4 

9999 

Building(6) 

BLDGS 

Mum 

4 

9999 

Building(7) 

BL0G7 

Mum 

4 

9999 

Building (8) 

BLDGS 

Mum 

9999 

C  Bag 

CBAG 

Mum 

3 

999 

Enlisted  Count 

AUTH.ENL 

Mum 

3 

999 

Office  Symbol 

OFFICE 

Char 

12 

xxxxxxxxxxxx 

Officer  Count 

AUTH.OFF 

Mum 

3 

999 

Organization 

OBGsip 

Char 

5 

999AA 

Senior  Grade 

GBADE 

Char 

2 

A9 

Total  SF 

SQF 

Mum 

6 

999999 

Utility  Bag 

UBAG 

Hum 

3 

999 

CUS.DBF 


Common  Name 

Data  Element 

Type 

LenAth 

Template 

Customer  Number 

CUSNB 

Hum 

3 

999 

First  Marne 

FNAME 

Char 

IS 

AAAAAAAAAAAAAAA 

Grade 

GBADE 

Char 

2 

AO 

Last  Name 

LMAME 

Char 

20 

AAAAAAAAAAAAAAAAAAAA 

Middle  Initial 

MI 

Char 

1 

A 

Organization (1) 

OBGSHPl 

Char 

S 

999AA 

Organization (2) 

0BGSHP2 

Char 

s 

999AA 

Organization (3) 

0BGSHP3 

Char 

s 

999AA 

0rganization(4) 

0BGSHP4 

Char 

s 

999AA 

Organization (5) 

0BGSHP5 

Char 

s 

099AA 

Organization (6) 

0BGSHP6 

Char 

s 

999AA 

0rganization(7) 

0BGSHP7 

Char 

s 

099AA 

Organization (8) 

OBGSHP8 

Char 

s 

099AA 

Prime/Altl 

PAl 

Char 

1 

A 

Prime/Alt2 

PA2 

Char 

1 

A 

Primc/Alt3 

PAS 

Char 

1 

A 

Prime/Alt4 

PA4 

Char 

1 

A 

Prime/AltS 

PAS 

Char 

1 

A 

Prime/Alt6 

PA6 

Char 

1 

A 

Prime/Alt7 

PA7 

Char 

1 

A 

Prime/Alts 

PA8 

Char 

1 

A 

Projected  PCS 

DPBTDT 

Mum 

4 

9999 

Telephone 

PHONE 1 

Mum 

s 

99999 

TelephonelAlt) 

PH0NE2 

Mum 

s 

99999 

Training  Date 

TBAIMDT 

Mum 

4 

9999 
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Appendix  B:  Egulp—nt  Mnnede— nt  Information  Syatem 

Program  Coda 


•  Program.:  EMIS.PBO 

•  Author..:  Capt  Jaff  Bailay 

•  Last  Bavision:  9  August  1988 

•  Iotas...:  Equipment  Management  Information  System  Main  Menu 

CLOSE  ALL 
CLEAB  MEMOBT 
SET  BELL  OFF 
SET  ESCAPE  OFF 
SET  HEADIIG  OFF 
SET  HELP  OFF 
SET  MEIU  OFF 
SET  SAFETY  OFF 
SET  SCOBEBOABD  OFF 
SET  STATUS  OFF 
SET  TALK  OFF 
SET  COIFIBM  OFF 
SET  COLOB  TO  M/B 

IF  ISCOLOBO 
SET  COLOB  OFF 
EHDIF 

DO  WHILE  .T. 

CLEAB 

DO  WHILE  .T. 

TODAY>DATE() 

DO  MAIIVIEW 

I»0 

DO  WHILE  1*0 
I«IHXE7(} 

•  6,39  SAT  TIMEO 

•  22,60  SAT  •• 

IF  UPPEB(CHB(I))i*ABCDHQ’ 

EXIT 

EMDIF 

1*0 

EIDDO 

•  22,60  SAT  UPPEB(CHB(I)) 

DO  CASE 


CASE  CHB(I)  i  'Qq' 
SATE  TO  EMIS.MEM 


SET  BELL  01 
SET  ESCAPE  OW 
SET  HEADIEO  01 
SET  HELP  01 
SET  MEIU  OV 
SET  SAPETT  01 
SET  SCOREBOABO  OH 
SET  STATUS  OH 
SET  TALK  OH 
SET  COLOB  TO  N/H 
CLEAR  ALL 
CLEAR 

•12.  32  SAT  ‘  HATE  A  HICE  DAYI  * 
RETUBH 

CASE  CHB(I)  t  *A*' 

CLEAR 
CLOSE  ALL 
DO  eoo 

CASE  CHR(I)  <  ’Bb* 

CLEAR 
CLOSE  ALL 
DO  TA 

CASE  CHR(I)  A  ’Cc* 

CLEAR 
CLOSE  ALL 
DO  RES 

CASE  CHB(I)  t  ‘Dd* 

CLEAR 
CLOSE  ALL 
DO  CUS 

CASE  CHR(I)  $  *Hh* 

CLEAR 
CLOSE  ALL 
DO  MAIHHELP 

EHDCASE 

EHDDO 

»  EOF:  EMIS.PBO 


»  ProgrAB. :  MAIHTIEW.PRO 

*  Author..:  Copt  Joff  Bailey 

«  Laat  Revision:  0  August  1088 

V  Hotes...:  Main  Menu  Screen  For  Equipment  Management  Information  System 

*  Called  from  EMIS.PBO 

*  1.0  TO  3.00 
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SYSTEM 


•  4,1  TO  20,77  DOUBLE 

•  2,12  SAT'EQDIPMEIIT  MAKAGEMEET 

•  8,20  SAT  *[Al  Air  Fore*  Fora  800  Control  LoE* 

•  10,20  SAT  ‘[B]  Tablos  of  Alloaancos  Boviow  List’ 

•  12,20  SAT  *[C]  Configuration  Data/Boauaa  File* 

•  14,20  SAT  *[0]  Equipaant  Cuatodian  List* 

•  18,20  SAT  '{HI  Halp  -  Eom  To  Uaa  Thia  Syataa* 

•  16,20  SAT  ’[Q]  Quit* 

•  8,28  SAT  'DATE  TIME' 

#8,23  SAT  TODAY 

•  8,39  SAT  TIMEO 

•  22,8  SAY  '[Entar  Salaction  (A  -  D.  H  for  halp,  or  Q  to  quit)  :  :] 
BETOBI 

•  EOF:  MAIEVIEW.PBG 


•  Prograa. :  DATETIME. PBQ 

«  Author..:  Capt  Jaff  Bailay 

•  Laat  Baviaion:  July  22,  1988 

•  Eotica..:  Copyright  1988 

«  Botaa...:  Put  Data  and  Tiaa  on  tha  Seraan 

• 

DO  MHILE  .T. 

TOOAY«OATE() 

#8,28  SAT  'DATE  TIME' 

#7,23  SAT  TODAY 
#  7,39  SAT  TIMEO 

I»0 

DO  WHILE  I>0 
I«IinCET() 

#  7,39  SAT  TIMEO 

#  22,80  SAT  " 

IF  UPPEB(CHB(I))8'ABCDHQ' 

EXIT 

EEDIF 

I«0 

EMDDO 

»#  22,80  SAT  fIPPEB(CP(I)) 

ENDDO 

•EOF:  DATETHS.PBG 


»  Prograa.:  MAIMHELP.PBO 
»  Author..:  Capt  Jaff  Bailay 


•  L«St  B«vision:  9  August  1988 

*  lot**...:  HELP  and  Systaa  Inforaation  for  the  Equipnant  Managament 

*  Information  Syataa 

•  Cal lad  From  EMIS.PBa 

CLSAB 

TEXT 

laleoaa  to  tha  Equipmant  lianagaaant  Information  Systam. 

This  is  a  manu-drivan  information  systam  dasignad  to  balp  manage 
soma  of  tha  administrative  tasks  required  of  tha  Base  Supply 
Equipment  Management  Section. 

Currently,  this  systam  helps  manage  the  fol lowing  tasks: 


Air  Force  Form  600  Log  » 

Tables  of  Allowances  Bevlaw  List  » 

Configuration  Oata/BasusM  File  • 

Equipment  Custodian  List  » 


Each  of  tha  tasks  has  its  own  HELP  facility  available  from 
tha  menu  for  that  task.  Air  Force  Manual  67-1,  Volume  II,  Part  2 
rafarancas  for  each  task  are  provided  in  the  appropriate  HELP 
facility. 

EIDTEXT 

WAIT  SPACE(20)  *  ‘Press  any  key  to  see  more  HELP.’ 

CLEAB 

TEXT 

All  fxinctions  in  this  system  are  accessed  by  depressing 
a  single  key.  Throughout  tha  HELP  screens,  wa  will  use  tha 
following  convention  to  denote  that  a  particular  key  should  be 

depressed: 

C  1 

For  example,  to  access  the  Air  Force  Form  600  function  from 
the  MAIH  MENU  you  should  press  the  letter  A.  We  denote  this  by 
saying  ‘To  access  tha  Air  Force  Form  600  function  press  [A].' 


ENDTEXT 

WAIT  SPACE (20)  *  ‘Press  any  key  to  see  more  HELP. ‘ 
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CLEAR 


TEXT 


From  the  Equipment  Management  Information  System  MAIN  MENU, 
press  the  following  letters  to  begin  working: 

To  access  the  Air  Force  Form  600  function  press  [A] 

To  access  the  Tables  of  Allowances  Review  List  press  [B] 

To  access  the  Configuration  Data/Resume  List  press  CC] 

To  access  the  Equipment  Custodian  list  press  [D] 

To  quit  using  the  system  press  [Q] 

•»»»••»»»»»»»»»>«•••«•••»«•«•»• 


EMDTEXT 

WAIT  SPACE(20)  *  ’?T*at  any  key  to  receive  System  Information.* 

CLEAR 

TEXT 


This  system  is  written  in  dBASE  III  PLUS  (tm)  and  designed 
to  run  on  a  Zenith  Z-246  computer  (or  compatible)  running  MSDOS  3.2 
or  higher,  with  a  Winchester  hard  disk  drive  and  a  132  column  printer. 

The  system  is  modularly  designed  so  current  tasks  can  be 
easily  updated  and  improved,  and  new  tasks  can  be  quickly  added. 

If  you  have  comments,  complaints,  or  suggestions  about  this 
system,  please  contact  us.  We  want  this  system  to  help  you  do  your 
job  better  and  easier.  If  you  find  errors,  or  you  have  suggestions 
for  improvements,  you  can  help  by  communicating  your  thoughts  to  us: 


t  AFLMC/LQS  • 

*  Attn:  Capt  Jeff  Bailey  • 

*  Qunter  AFB  * 

*  Montgomery,  AL  36104  • 


This  disk  contains  the  Equipment  Management  Information  System, 
Version  1.0,  revision  date:  August  1988 


EIDTEXT 


l&IT  SPAC8(20)  *■  *Pr«Sfl  any  key  to  return  to  the  MAIH  MEHU. ' 

CLEAB 

B8TUBI 

»  EOF:  MAIHHBLP.PBG 


*  Prograa. :  NORECORO.PBO 

«  Author..:  Capt  Jeff  Bailey 

*  Laat  Bevision:  S  AuAuat  1088 

•  lotea...:  Check  Oatabaae  To  See  If  It  has  Any  Beeords 

• 

•  Cheek  To  See  If  The  File  Contains  Any  Beeords 
IF  BECCOOBTO  «  0 

•  15,18  SAT  'There  are  no  records  in  the  file.* 

•  21,15 

WAIT  SPACE(15)  *  'Press  any  key  to  return  to  the  MAIN  MENU' 

CLOSE  DATABASES 

CLEAB 

BETUBI  TO  MASTEB 
EIDIF 

BETUBI 

•EOF:  lOBECOBO.PBQ 


»  Prograa. :  PAUSE. PBG 

•  Author..:  Capt  Jeff  Bailey 

»  Last  Bevision:  9  August  1988 

•  Notes...:  Pause  to  allow  user  to  view  the  screen 

• 

MPAUSE  «  0 

DO  MHILE  MPAUSE  <  35 
MPAUSE  «  MPAUSE  *  1 
ENDDO 

BETUBI 

•EOF:  PAUSE. PBG 


•  Prograa. :  600 . PBG 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Bevision:  9  August  1988 


•  Pcrfora  AF  Fora  000  Equlpa*nt  Control  Sogiator  operations 

•  Cal lad  froa  BMIS.PBO 

USE  AFFMBOO 

DO  WHILE  .T. 

TOOAT>DATE() 

CLEAH 

t  1.0  TO  3.73 

•  3.11  SAT  *A  I  B  F  0 

•  3,57  SAT  ‘C  0  I  T  B  0 

•  4.1  TO  30.77  DOUBLE 
t  5.35  SAT  'DATE 
§0.33  SAT  TODAT 
f  0.30  SAT  TIMEO 
f  8.30  SAT  '(Al  Add  Bacords  To  Tha  Log* 

§  10.30  SAT  '[Bl  Update  Bacords  Pravloiisly  Loggad  In' 

§  13.30  SAT  ‘[C]  Delate  Bacords  Previously  Logged  In* 

§  14.30  SAT  ‘[Dl  Baports' 

§  10,30  SAT  '[H]  Help  -  How  To  Use  This  System* 

§  18.30  SAT  '[Ql  Quit* 

f  33,8  SAT  ‘(Enter  Selection  (A  -  D,  H  for  help,  or  Q  to  quit)  :  :]* 
I-O 

DO  WHILE  1*0 
I«in(ST() 

§  0.30  SAT  TIMEO 
§  33.00  SAT  " 

IF  UPPEB(CHB(I))«'ABC0BQ‘ 

EXIT 

ENDIF 


BCE  FOBM  000 
L  L  0  a* 

TIME* 


1*0 

EIDDO 

f  33.00  SAT  UPPEB(CHB(I)) 
DO  CASE 

CASE  CHB(I)  «  ‘Qq* 

SATE  TO  000. MEM 
CLEAB  ALL 
CLEAB 

CLOSE  DATABASES 
BETUBM 

CASE  CBB(I)  «  *Aa* 
CLEAB 
CLOSE  ALL 
DO  OOOADD 

CASE  CHB(I)  $  ‘Bb* 
CLEAB 
CLOSE  ALL 
DO  OOOEDT 
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CASE  CHB(I)  S  *Cc‘ 
CLEAR 
CLOSE  ALL 
00  600DEL 

CASE  CHR(I)  «  'Dd' 
CLEAR 
CLOSE  ALL 
DO  600BPT 

CASE  CHR(I)  t  'Hh* 
CLEAR 
CLOSE  ALL 
DO  600HLP 

ENDCASE 

ENODO 

»  EOF:  600. PRO 


»  Program.:  600ADD.PRQ 
t  Author..:  Capt  Jeff  Bailey 

•  Laat  Revision:  9  August  1988 

»  Motes...:  Add  records  to  the  Air  Force  Form  600  Equipment 

•  Control  Register 

•  Called  from  600. PRO 

USE  AFFII600 
DO  WHILE  .T. 

00  BOTTOM 

•  Initialize  Memory  Variables 
STORE  SPACE (1)  TO  MEQUIP 
STORE  0000  TO  MBCVD 

STORE  COMTROL.MRtl  TO  MCOMTROL 
STORE  0000  TO  MDETAIL 
STORE  SPACE (S)  TO  MORO 
STORE  00000000  TO  MBEQUEST 
STORE  SPACE (IS)  TO  MNSN 
STORE  SPACE (20)  TO  MNAME 
STORE  SPACE (3)  TO  MACTION 
STORE  0000  TO  MFWD 
STORE  SPACE (1)  TO  MTO 
STORE  0000  TO  MRTND 
STORE  SPACE (10)  TO  MCOMPL 

•  Draw  Input  Screen 
CLEAR 

DO  WHILE  .T. 

TODAY=DATE() 
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CLEAB 

•  1.9  TO  3.71 

•  2.11  SAY  ’A  I  R  FORCE  FORM  600  ADD 

•  2.57  SAY  *  R  0  0  T  I  V  E’ 

•  6.0  TO  20.77  DOUBLE 

•  7.48  SAY  'EMS  Control  Vuabor;  *  GET  MCOMTROL  PICTURE  ‘99999' 
CLEAB  GETS 

•  7.3  SAY  ‘EquipMnt  Code:  ‘  GET  MEQUIP  PICTURE  ‘A* 

•  7,24  SAY  ‘Org/Shop  Code:  *  GET  MORG  PICTURE  ‘999AA‘ 

•  9,3  SAY  ‘Custodian  Bequest  Humber: 

GET  MREQUEST  PICTURE  '99999999* 

•  9.47  SAT  *  In-Use  Document  Humber:  ‘  GET  MDETAIL  PICTURE  ‘9999 
f  11.3  SAY  ‘HSH  or  Part  Humber:  *: 

GET  MHSH  PICTURE  ‘9999XmxmXAA‘ 

•  11,50  SAY  ‘Action  Requested:  ‘  GET  MACTIOH  PICTURE  ‘AAA‘ 

•  13,3  SAY  ‘Homenclature:  ‘: 

GET  MHAME  PICTURE  ‘  XmXXXXXXXXXXXXXm' 

•  15,3  SAY  ‘Date  Received  ‘  GET  MBCVD  PICTURE  ‘9999‘ 

•  15,25  SAY  ‘Date  Forwarded:  ‘  GET  MFMD  PICTURE  ‘9999‘ 

•  15,50  SAY  ‘Forwrrded  To:  ‘  GET  IfPO  PICTURE  ‘X‘ 

•  17,3  SAY  ‘Date  Returned:  ‘  GET  MRTHD  PICTURE  ‘9999‘ 

•  19,3  SAY  ‘Completion  Action:  *  GET  MCOMPL  PICTURE  ‘XXXXmm 
READ 

«  Check  For  Correct  Entry 
CORRECT* •  ‘ 

DO  WHILE  .HOT.  CORRECT* ‘ YyHn ‘ 

•  22,15  SAY  ‘Is  This  Correct?  (T/H) ‘  GET  CORRECT 
BEAD 

•  22.15 
SHDDO 

IF  UPPER (CORRECT) «‘H‘ 

GOOH»‘  ‘ 

DO  MHILE  .HOT.  GOOHS'YyHn' 

•  22,15  SAY  ‘Would  You  Like  To  Continue?  (Y/H) ‘  GET  GOOH 
READ 

•  22,15 
EHDDO 

IF  UFFEB(GOOH)-‘H‘ 

•22,15  SAY  ‘Returning  to  AF  Form  600  Main  Menu' 

CLEAR 

RETURH 

EHDIF 

EHDDO 

EHDIF 

APPEHD  BLAHK 

REPLACE  EQUIPCODB  WITH  MEQUIP 
REPLACE  RCVD  DT  WITH  MRCVD 
REPLACE  COHTROL.HR  WITH  MCOHTROL 
REPLACE  DETAIL  WITH  MDETAIL 
REPLACE  ORG  SHOP  WITH  MORG 
REPLACE  RBQTCST.HR  WITH  MREQUEST 
REPLACE  STX  HR  WITH  MHSH 
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BEPLACE  EAIIE  WITH  MHAME 
REPLACE  ACTION  WITH  MACTION 
REPLACE  FWD  DT  WITH  MFWD 
REPLACE  FWD.TO  WITH  IfTO 
BEPLACE  BTH  OT  WITH  MRTND 
REPLACE  COIffL.ACT  WITH  MCOMPL 

*  Check  For  Another  Input 
ANOTHER**  * 

DO  WHILE  .NOT.  ANOTHER# * TyNn * 

•22,15  SAY  ’Input  Another  Record?  (T/N) *  GET  ANOTHER 
READ 
•  22.15 
ENODO 

IF  UPPER  (ANOTHER) **Y* 

CLEAR 

EXIT 

ENDIF 

IF  UPPER  (ANOTHER) *‘N‘ 

•22,15  SAY  ’Returning  to  AF  Form  600  Main  Menu* 

CLEAR 

RETURN 

ENDIF 

CLEAR 

ENDOO 

ENDDO 

»  EOF:  600 ADD. PRO 


•  Program.:  OOOEDT.PRG 
»  Author..:  Capt  Jeff  Bailey 
»  Last  Revision:  9  August  1988 

«  Notes...:  Edit  records  in  the  Air  Force  Form  600  Equipment 
«  Control  Register 

»  Called  from  600. PRG 

USE  AFFM600 

DO  NORECORD 

DO  WHILE  .T. 

•  Initialize  Memory  Variables 
STORE  SPACE(l)  TO  MEQUIP 
STORE  0000  TO  MRCVD 
STORE  00000  TO  MCONTROL 
STORE  0000  TO  MDETAIL 
STORE  SPACE (5)  TO  MORG 


STORE  00000000  TO  MREQUEST 
STORE  SPACE (15)  TO  MRSH 
STORE  SPACE (20)  TO  MNAME 
STORE  SPACE (3)  TO  MACTIOM 
STORE  0000  TO  MFWD 
STORE  SPACE (1)  TO  MTO 
STORE  0000  TO  MRTin) 

STORE  SPACE (10)  TO  MCOMPL 


«  Draw  Input  Scr««n 
CLEAR 

•  1,8  TO  3,72 

•  2, 10  SAY  ‘AIR  FORCE  FORM  600  EDIT  ‘ 

•  2,57  SAT  ‘  R  0  n  T  I  R  E‘ 

•  6,0  TO  20,77  DOUBLE 

•  7,3  SAT  ‘Equlpaent  Code:  * 

•  7,24  SAT  ‘OrE/Shop  Code:  * 

•  7,48  SAT  'EMS  Control  Rumber:  * 

•  8,3  SAT  *C\ietodian  Request  Rtunber: 

•  9,47  SAT  ‘In-Use  Document  Rumber:  * 

•  11,3  SAT  ‘RSR  or  Part  Rumber:  ‘ 

•  11,50  SAT  ‘Action  Requested:  * 

•  13,3  SAT  ‘Romenclature:  ‘ 

•  15,3  SAT  ‘Date  Received:  * 

•  15,25  SAT  ‘Date  Forwarded:  ‘ 

•  15,50  SAT  ‘Forwarded  To:  ‘ 

•  17,3  SAY  ‘Date  Returned:  ‘ 

•  19,3  SAT  ‘Completion  Action:  ‘ 

•  Input  Control  Rumber 

•  22,15  SAY  ‘Enter  Control  Rumber‘  GET  MCOHTBOL  PICTURE  ‘99999‘ 
READ 

«  Search  For  Requested  Control  Rumber 
LOCATE  FOB  CORTBOL.RR  >  MCORTROL 

IF  .ROT.  FOURDO 

»  Control  Riiwber  Is  Rot  In  The  Log 

•  22,15 

•  22,15  SAT  ‘Control  Rumber‘  GET  MCORTROL  PICTURE  ‘99999‘ 

•  22,36  SAT  ‘cannot  be  found.* 

CLEAR  GETS 

GOOR  »  ‘  ‘ 

DO  WHILE  .ROT.  aOORt‘TyHn‘ 

•  23,15  SAY  ‘Would  You  Like  To  Continue?  (T/N) ‘  GET  GOON 
BEAD 
ERDDO 

IF  UPPER(aOOR)«‘R‘ 

•23,15  SAT  ‘Returning  to  AF  Form  600  Main  Menu* 

CLEAR 

BETUBR 

ERDIF 

CLEAR 

LOOP 
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BIDIF 

•  If  Record  Is  Locstod,  Display  Data 

•  6,0  TO  20,77 

•  7,48  SAT  *EMS  Control  lumbar:  *  QET  MCOMTBOL  PICTURE  *99999' 

•  7,3  SAT  'Equipment  Code:  '  QET  EQUIPCODE  PICTURE  'I A'  I 

•  7,24  SAT  *0rg/Shop  Code:  *  GET  0RG_SH0P  PICTURE  '999AA* 

•  9,3  SAT  'Custodian  Bequest  lumber: 

GET  REQUEST  IB  PICTURE  *99999999* 

•  0,47  SAT  *  In-Use  Document  luiri)er:  *  GET  DETAIL  PICTURE  *9999* 

•  11,3  SAT  *ISI  or  Part  lumber:  *; 

GET  STK  IB  PICTURE  'OOOOXXXXmmA*  I 

•  11, SO  SAT  'Action  Bequested:  *  GET  ACTIOI  PICTURE  'AAA* 

•  13,3  SAT  'lomenclature:  *; 

GET  lAlB  PICTURE  '  XXXXXmEXXXXXXXZm* 

•  15,3  SAT  'Date  Received  *  GET  RCVD  DT  PICTURE  '0090* 

•  15,25  SAT  ‘Date  Forwarded:  ‘  GET  FHD.DT  PICTURE  '9999' 

•  15,50  SAT  'Forwarded  To:  *  GET  FWD.TO  PICTURE  '!' 

•  17,3  SAT  'Date  Returned:  *  GET  RTI.DT  PICTURE  ‘9909* 

•  19,3  SAT  'Coapletion  Action:  '; 

GET  COMPL  ACT  PICTURE  ‘EXXXXXmX* 

CLEAR  GETS 
CORRECT  »  *  * 

DO  IHILE  .lOT.  COBRECTA'TyIn* 

•  22,15 

•  22,15  SAT  'Is  this  the  correct  record?  (T/l) ‘  GET  CORRECT 
READ 

EIDDO 

IF  UPPER (CORRECT)*' I' 

6  22,15 
0001  a  '  * 

DO  WHILE  .lOT.  OOOIf'Tyln* 

f  22,15  SAT  ‘Would  Tou  Like  To  Continue?  (T/l) ‘  GET  GOOl 
BEAD 
f  22,15 
EIDDO 

IF  UPPER  (GOOD*' I' 

622,15  SAT  ‘Returning  to  AF  Form  000  Main  Menu' 

CLEAR 
BETURI 
EIDIF 
LOOP 
EIDIF 

DO  WHILE  .T. 

6  7,3  SAT  ‘Equipment  Code:  '  GET  EQUIPCODE  PICTURE  'A' 

6  7,24  SAT  'OrR/Sbop  Coda:  *  GET  ORO.SHOP  PICTURE  '999AA‘ 

6  9,3  SAT  'Custodian  Request  lumber: 

GET  BEQUEST  IR  PICTURE  '96999909' 

6  0,47  SAT  ‘In-Use  Document  lumber:  *  GET  DETAIL  PICTURE  ‘9999* 

6  11,3  SAT  *ISI  or  Part  lumber:  *; 

GET  STK  IB  PICTURE  ‘0999EXXmXXXAA* 

6  11,50  SAT  'Action  Bequested:  '  GET  ACTIOI  PICTURE  'AAA' 

6  13,3  SAT  ‘lomenclature: 

GET  lAME  PICTURE  ‘  XXXXXmXXXmXXXXXX' 

6  15,3  SAT  ‘Date  Received  ‘  GET  RCVD  DT  PICTURE  *9999' 

6  15,25  SAT  ‘Date  Forwarded:  ‘  GET  FWD  DT  PICTURE  ‘9999* 
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•  15,50  SAY  'Formrdcd  To:  *  OET  FWD.TO  PICTUBE  'X' 

•  17,3  SAY  ‘Dato  Boturnod:  '  OET  BTB.DT  PICTUBE  ‘OOOU* 

•  10,3  SAT  'Coaplotion  Action: 

OET  COMPL.ACT  PICTUBE  'XXXXXXXXXX' 

•22,15  SAY  'Oo  alioad  and  aalca  tha  nacaaaary  chanEoa-' 

BEAD 

•22,15 

•  Chock  For  Correct  Entry 

COBBECT  «  ’ 

00  HHILE  .MOT.  COBBECTt'YyHn* 

•  22,15  SAT  'la  Thla  Correct?  (Y/V) *  OET  COBBECT 
BEAD 

•  22,15 

EIDOO 

IF  UPPEB (COBBECT) >*H‘ 

OOOB  «  * 

DO  WHILE  .HOT.  OOOHt'TyMn* 

•  22,15  SAT  'Would  You  Like  To  Continue?  (Y/H) *  OET  QOOM 
BEAD 

•  22,15 
EIDDO 

IF  0FPEB(0001()>*I* 

•22,15  SAY  ‘Beturning  to  AF  Form  600  Main  Menu' 

CLEAB 

BETUBH 

EIDIF 

EMDDO 

EHDIF 

MEQUIP  *  EQUIPCODE 
MBCVD  «  BCVD  DT 
MDETAIL  *  DETAIL 
MOBO  «  OBO.SHOP 
MBEQUEST  «  BEQUEST  IB 
lOISa  «  STX  HB 
MHAME  «  HAME 
MACTIOH  *  ACTIOH 
MFWD  >  FWD  DT 
MTO  «  FWD  TO 
IffiTID  «  BTH  DT 
MCOMPL  *  COMPL.ACT 

BEPLACE  EQUIPCODE  WITH  MEQUIP 
BEPLACE  BCTD  DT  WITH  MBCVD 
BEPLACE  DETAIL  WITH  MDETAIL 
BEPLACE  OBO  SHOP  WITH  MOBO 
BEPLACE  BEQUEST  HB  WITH  MBEQUEST 
BEPLACE  STK.IB  WITH  MKSH 
BEPLACE  HAIB  WITH  MHAME 
BEPLACE  ACTIOH  WITH  MACTIOH 
BEPLACE  FWD  DT  WITH  MFWD 
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RIPLACB  FUD.TO  WITH  MTO 
BEPLACI  BTII  DT  WITH  HRTID 
REPLACE  COMPL.ACT  WITH  MCOMPL 

I  •  Cheek  For  Another  Edit 

AEOTHER  «  *  ‘ 

DO  WHILE  .HOT.  AHOTHERi ' TyHn * 

•22,15  SAT  ’Updete  Another  Record?  (T/H) *  QET  ANOTHER 

MAD 

•  22,15 
BIDDO 

IF  OPPER  (ANOTHER) >‘H* 

•22,15  SAT  ’Returning  to  AF  Forn  600  Main  Menu* 

CLEAR 
RETURN 
ENDIF 

SNDOO 
ENDDO 

•  EOF:  600E0T.PBQ 


•  Prograa. :  600DEL.PRO 

•  Author..:  Capt  Jeff  Bailey 

•  Laet  Reviclon:  9  August  1988 

«  Notes...:  Delete  records  froa  the  Air  Force  Fora  600 

•  Equipswnt  Control  Register 

•  Called  from  600. PRO 

USE  AFFMOOO 
DO  WHILE  .T. 

DO  NORECORD 
DO  WHILE  .T. 

•  Initialize  Memory  Variables 
STORE  SPACE (1)  TO  MEQUIP 
STORE  0000  TO  MRCTD 
STORE  00000  TO  MCONTBOL 
STORE  0000  TO  MDETAIL 
STORE  SPACE (5)  TO  MORQ 
STORE  00000000  TO  MREQUEST 
STORE  SPACE (15)  TO  MNSN 
STORE  SPACE (20)  TO  MHAME 
STORE  SPACE (3)  TO  MACTION 
STORE  0000  TO  MFWD 
STORE  SPACE(l)  TO  MTO 
STORE  0000  TO  MBTND 
STORE  SPACE(IO)  TO  MCOMPL 

DO  WHILE  .T. 
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•  Draw  Scraan 
CLEAB 

•  1,6  TO  3.73 

•2.8SAT'AISFOBCE  FOBM  600  DELETE 

•  2,50  SAT  *B  0  0  T  I  V  E* 

•  4.1  TO  20,77  DOUBLE 

•  7,48  SAT  *BI6  Control  Huwbar: 

•  7.3  SAT  ‘Equipaant  Coda:  * 

•  7,24  SAT  ‘Org/Sbop  Coda:  ‘ 

•  0,3  SAT  ‘Ciiatodian  Baquaat  Htnubar: 

•  0,47  SAT  'In~Uaa  Doexiaant  luabar: 
f  11,3  SAT  ‘ISH  or  Part  luabar:  ’ 

•  11,90  SAT  'Action  Baquaatad:  ’ 
f  13,3  SAT  'Boaanelatura:  * 

•  15.3  SAT  'Data  Bacaivad:  ‘ 

•  19,25  SAT  ‘Data  Forwarded:  ‘ 

•  15,90  SAT  ‘Forwarded  To:  ‘ 

•  17,3  SAT  ‘Date  Beturned:  ‘ 

•  1D.3  SAT  ‘Cooqpletion  Action:  ‘ 

»  Input  Control  Mtiaber 

•  22,15  SAT  ‘Enter  Control  Number'  OET  MCONTBOL  PICTUBE  ‘90999 
BEAD 

•  Search  lor  requested  control  number 
LOCATE  FOB  CONTBOL.HB  *  MCONTBOL 

IF  .NOT.  FOUNDO 

•  CONTBOL  NUMBEB  IS  NOT  IN  THE  LOO 

•  22,15  SAT  SPACE (50) 

•  21,15  SAT  ‘Control  Number'  OET  MCONTBOL  PICTUBE  '99999' 

•  21,36  SAT  ‘cannot  be  found.' 

CLEAB  GETS 

GOON  »  • 

DO  WHILE  .NOT.  GOONA'TyNn' 

6  22,15  SAT  ‘Would  Tou  Like  To  Continue?  (T/N) ‘  GET  GOON 
BEAD 
ENDDO 

IF  OPPEB(GOON)»‘N‘ 

•22,19  SAT  SPACE  (SO) 

•22,15  SAT  ‘Baturning  to  AF  Form  600  Main  Menu' 

CLEAB 

BETUBN 

ENDIF 

CLEAB 

LOOP 

ENDIF 

•  If  record  is  located,  display  data 

•  7,3  SAT  ‘Equipment  Code:  ‘  GET  EQUIPCODE  PICTUBE  ‘A‘ 

•  7,24  SAT  ‘Org/Shop  Code:  ‘  GET  OBO  SHOP  PICTUBE  ‘999AA‘ 

•  7,48  SAT  ‘EMS  Control  Number:  ‘  GET  MCONTBOL  PICTUBE  ‘99999 

•  9,3  SAT  ‘Custodian  Bequest  Number: 

GET  BEQUEST.NB  PICTUBE  '99999999' 


f  9,47  SAT  *In-(Jg«  DocuMnt  Muid)«p:  *  QET  DETAIL  PICTURE  ‘9999 

•  11,3  SAT  *ISS  OP  Papt  Miuri>ap:  *; 

OST  STK  IB  PICTURE  *9999mXXmXAA‘ 

•  11,50  SAT  ‘Action  Raquastad:  ‘  QET  ACTIOI  PICTURE  ‘AAA‘ 

9  13,3  SAT  ‘loMnclatura: 

OET  lAie  PICTURE  ‘ i(xxEmxxxxxi{xmm‘ 

•  15,3  SAT  ‘Data  Bacalvad  ‘  QET  RCTD  DT  PICTURE  ‘9999‘ 

•  15,25  SAT  ‘Data  Foriiapdad:  ‘  QET  PM)  DT  PICTURE  ‘9999‘ 

•  15,50  SAT  ‘Fopwardad  To:  *  QET  FID  TO  PICTURE  ‘E‘ 

•  17,3  SAT  ‘Data  Baturnad:  ‘  QET  RTI.DT  PICTURE  ‘9999‘ 

•  19,3  SAT  'Coaplatlon  Action:  *; 

QET  COMPL  ACT  PICTURE  ‘XXZXZXmX* 

CLEAR  QETS 

MCOBRECT  »  ‘  ‘ 

DO  WHILE  .HOT.  IICOBRECTS*Tyln* 

•  22,15  SAT  SPACE  (50) 

•  21,15  SAT  ‘la  thia  tha  pacopd  you  want  to  dalata?  (T/N) ‘ ; 
QET  MCOBRECT 

READ 

EIDDO 

IF  UPPER (MCOBRECT) >‘l‘ 

•  22,15  SAT  SPACE (SO) 

MQOOH  «  * 

DO  WHILE  .HOT.  MQOOm‘Tyln‘ 

•  22,15  SAT  ‘Would  Tou  Lika  To  Continue?  (T/H) ‘  QET  MQOOM 
BEAD 

•  22,15  SAT  SPACE (SO) 

EIDDO 

IF  UPPER (MQOOM) «*l‘ 

•22,15  SAT  *Ratupnin|  to  AF  Fopb  600  Main  Manu‘ 

CLEAR 

RETURM 

EMDIF 

LOOP 

EIDIF 

MCOBRECT  *  ‘ 

DO  WHILE  .HOT.  MC0RRECT9‘TyNn' 

•21,15  SAT  ‘Apa  you  aura  that  you  want  to  delate  this  record? 
•21,05  SAT  ‘(T/D*  QET  MCOBRECT 

•  22,15  SAT  SPACE(50) 

READ 

EIDDO 

IF  UPPER (MCOBRECT) **l‘ 

•21,15  SAT  ‘Thia  record  will  not  be  deleted. ‘ 

MQOOM  >  ‘ 

DO  WHILE  .lOT.  MQOOM* ‘TyMn‘ 

•  22,15  SAT  ‘Would  Tou  Like  To  Continue?  (T/M) ‘  QET  MQOOM 
READ 

•  22,15  SAT  SPACE (50) 
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EIDDO 


IF  nPPBB(IIQOOI)*‘l’ 

•22.15  SAT  ‘B«turnlng  to  AF  Form  500  Main  Menu* 
CLEAB 
BETUBI 
EIDIF 
EIDDO 
EIDIF 


DELETE  ALL  FOB  COITBOL  IB  >  MCOITBOL 
PACK 


«  Cback  for  anothar  dalata 
MAIOTHEB  *  ' 

DO  IHILB  .lOT.  MAIOTHEB* ‘Tyin* 

•21,15  SAY  SPACE (60) 

•21,15  SAT  *Thla  racord  haa  baan  dalatad.' 

•22,15  SAT  'Mould  you  lika  to  dalata  anothar  racord?  (T/tf) * ; 

OET  MAIOTHEB 

BEAD 

•  22,15  SAT  SPACE (5) 

EIDDO 

IF  UPPEB  (MAIOTHEB)-* I* 

•22,15  SAT  'Baturnlng  to  AF  Fora  600  Main  Menu' 

CLEAB 

BETUBI 

EIDIF 

EIDDO 

EIDDO 

«  EOF:  OOODEL.PBO 


»  Program.:  600BPT.PBO 
«  Author..:  Capt  Jaff  3<\ilay 

•  Last  Bavision:  0  August  1988 

a  Iotas...:  Craata  Baports  from  the  AF  Fora  600  Control  Log  Equipment 

*  Control  Bagistar 

«  Cal lad  froa  AFFM600.PBO 

USE  AFFM600 

DO  lOBECOBD 

DO  WILE  .T. 

TODAY-DATE  0 
CLEAB 

•  1.8  TO  3.73 

•2, 10  SAT  ‘A  IB  FORCE  FOBM  600  BEPORTS  * 

•  2,64  SAT  '  M  E  I  U* 

•  4.1  TO  21,77  DOUBLE 
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TIME 


•5,25  SAT  'DATE 
•6.23  SAT  TOOAT 

•  6,3S  SAT  TIMEO 
•6,20  SAT  '(Al  All  Bccords' 

•  10,20  SAT  *[B]  Active  Records  Only* 

•  12,20  SAT  *[C]  Records  Received  As  Of  A  Particular  Date' 

•  14,20  SAT  ‘[Dl  By  Desk  Rus6>er‘ 

•  16,20  SAT  *[E]  By  Organization  and  Shop  Code* 

•  18,20  SAT  *[H]  Help  -  How  To  Use  The  Reports  System' 

•  20,20  SAT  *(Q]  Quit' 

•  23,8  SAT  '[Enter  Selection  (A  -  E.  H  for  help,  or  Q  to  quit) 


I»0 

DO  MHILE  1*0 
I*IHKET() 

•  6,30  SAT  TIMEO 

•  23,60  SAT  " 

IF  UPPER (CHR(I)}«‘ABCDEHO' 
EXIT 
EHDIF 


1*0 

EHDDO 

•  23,60  SAT  UPPERCCHRd)) 

•  Input  Printer/Screen  Request 
J  »  251 

DO  CASE 

CASE  CHR(I)  i  *Qq' 

SAVE  TO  EMIS.MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURH 

CASE  CHB(I)  f  'Aa' 

•  8,18  SAT  CHR(J) 

DO  PAUSE 
DO  600RPTA 

CASE  CHR(l)  i  *Bb* 

•10,18  SAT  CRB(J) 

DO  PAUSE 
DO  600RPTB 

CASE  CHR(I)  t  'Cc' 

•12,18  SAT  CHR(J) 

DO  PAUSE 
DO  600RPTC 


CASE  CHB(I)  f  ‘Dd 


#14,18  SAT  CBRiJ) 
DO  PAUSE 
DO  eOOBPTD 

CASE  CHB(I)  A  *£•' 
•10.18  SAT  CHB(J) 
DO  PAUSE 
DO  OOOBPTE 

CASE  CHB(I)  t  ‘Hh* 
#18,18  SAT  CHB(J) 
DO  eOOBPTH 

EEDCASE 

EEDDO 

•  EOF:  eOOBPT.PRG 


»  Progrtm. ;  800BPTA.PSO 

•  Author..:  Capt  Jaff  Bailey 

»  Laat  Bevlclon:  0  August  1988 

•  Botes...:  Create  a  report  containing  all  records  in  the  Air  Force 

»  Fora  000  Equipment  Control  Register 

»  Called  from  OOORPT.PRO 

USE  APPItSOO 

PRIMTER  a  •  • 

DO  WHILE  .T. 

CLEAR 

TEXT 

This  report  will  provide  a  list  of  all  of  the  records  in  the 
Air  Force  Fora  000  file. 

Since  the  computer  screen  is  only  80  columns  wide,  a  report  sent 
to  the  screen  will  not  Include  the  following  data  elements: 

Custodian  Request  Humber 
Type  of  Action 
Date  Forwarded 
Forwarded  To 
Date  Returned 

If  you  need  to  see  these  data  elements,  you  should  send  the 
report  to  a  132  column  printer. 

EMDTEXT 

DO  WHILE  .HOT.  PRIHTERA'PpSsOq' 
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•  22.15  SAT  ’Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit) 
OET  PRISTER 
READ 
EIDDO 

CLEAR 

IF  OPPER(PRIirrER)>‘Q‘ 

SAVE  TO  EMXS.MElf 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETUSH 
ERDIP 

IF  0PPEB(PRI1ITEB)«’S‘ 

TEXT 


Molt  report!  are  longer  than  one  screen.  Therefore,  they  will 
icroll  up  the  icreen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

(COMTROL  S> 


To  START  the  report  scrolling  again  type 

(RETURH) 


EIDTEXT 

WAIT 

CLEAR 

REPORT  FORM  OOORPTSA.FRM  TO  SCREES 

WAIT 

ERDIF 

IF  UPPER(PRIliTER)«’P’ 

CLEAR 

WAIT  ’Ready  printer  and  press  <RETUBH>’ 
REPORT  FORM  900RPTPA.FRM  TO  PRINT 
ENDIF 

CLEAR 


RETURN 


BIDDO 


•  EOF:  fiOOBPTA.PBG 


»  Prograa. :  600RPTB.PBG 
»  Author..:  Capt  Jaff  Bailoy 

•  Last  Ravision:  9  Auguat  1988 

•  Kotaa...:  Craata  a  raport  ot  all  active  recorda  in  the  Air  Force 

*  Fora  800  Equipaent  Control  Begiater 

*  Called  froB  600BPT.PBG 

USE  AFFHSOO 
PBIMTER  »  ' 

DO  WHILE  .T. 

SET  FILTER  TO  RTH_DT  «  0  .OB.  C0MPL_ACT  *  * 

GO  TOP 
CLEAR 

TEXT 


Thia  report  will  provide  a  liat  of  all  of  the  recorda  in  the 
Air  Force  Fora  600  file  vdiich  have  a  return  date  of  0  or  a 
blank  in  the  coapletion  action  field. 

Since  the  coj^^utar  acraan  ia  only  80  coluanta  wide,  a  report  aent 
to  the  acreen  will  not  include  the  following  data  elementa: 

Cuatodian  Baqueat  Huaber 
Type  of  Action 
Data  Forwarded 
Forwarded  To 
Data  Baturnad 

If  you  need  to  aaa  thaaa  data  elementa,  you  ahould  aend  the 
report  to  a  132  column  printer. 

EMDTEXT 

DO  WHILE  .NOT.  PBIHTEBt'PpSaQq* 

•22,18  SAT  ’Sand  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?’ 
GET  PRINTER 
READ 
ENDDO 

CLEAR 

IF  UPPEB(PBINTER)>’Q’ 

SATE  TO  600. MEM 
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CLEAB  ALL 
CLEAB 

CLOSE  DATABASES 
BETUBE 
EMDIF 

IF  OPPEB(PBIIITEB)»'S' 
TEET 


Most  reports  aro  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

<COHTKOL  S> 


To  STABT  the  report  scrolling  again  type 

< BETUBE) 


EEDTEET 

WAIT 

CLEAB 

BEPOBT  FOBM  OOOBPTSB.FBM  TO  SCBEEN 
WAIT 
EEDIF 

IF  UPPEBCPBIBTEB)«*P’ 

CLEAB 

WAIT  'Beady  printer  and  press  <BETnBE>' 
BEPOBT  FOBM  OOOBPTPB.FBM  TO  PBIET 
EEDIF 

CLEAB 

BETUBE 

EEDDO 

•  EOF:  OOOBPTB.PBG 


•  Prograa. :  OOOBPTC.PBQ 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Bevision:  9  August  1988 
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•  Not«f...:  Cr««t«  •  report  of  records  in  the  Air  Force  Form  600 

•  Equipment  Control  Beiister  received  in  the  EMS  between 

•  user  specified  beginning  and  ending  dates 

«  Called  from  OOOBPT.PSa 

USE  AFFMSOO 

DO  WHILE  .T. 

•  Input  Printer/Screen  Bequest 
J  «  251 

•  13,18  SAT  CHB(J) 

PBIHTEB  *  • 

CLEAB 

TEXT 


This  report  will  provide  a  list  of  all  of  the  records  in  the 
Air  Force  Form  600  file  idiich  were  received  on  or  after  the 
beginning  date  you  specify  and  on  or  before  the  ending  date 
you  specify. 

EHDTEXT 

»  Initialize  Memory  Variables 
STOBE  0000  TO  MBCVDB 
STOBE  0000  TO  MBCVDE 
STOBE  00000  TO  MCONTBOLB 
STOBE  00000  TO  MCOHTBOLE 

•  Input  Beport  Dates 

f  20,15  SAT  ’Enter  Beginning  Julian  Date  Of  Beport*; 

GET  MBCVDB  PICTUBE  *9999' 

•  22,15  SAT  ’Enter  Ending  Julian  Date  of  Beport'; 

GET  MBCVDE  PICTUBE  ’9999' 

BEAD 

SET  FILTEB  TO  BCVD  DT  »  MBCVDB 
GO  TOP 

MCONTBOLB  »  CONTBOL.NB 

SET  FILTEB  TO  BCVD  DT  >  MBCVDE 
GO  TOP 

MCOHTBOLE  >  CONTBOL.NB 

SET  FILTEB  TO  BCVD.DT  >=  MBCVDB  .AND.  BCVD  DT  <=  MBCVDE 

GO  TOP 

CLEAB 

TEXT 

Since  the  computer  screen  is  only  60  columns  wide,  a  report  sent 
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to  the  scr«en  will  not  include  the  following  data  elements: 

Custodian  Bequest  Humber 
Type  of  Action 
Date  Forwarded 
Forwarded  To 
Date  Returned 

If  you  need  to  see  these  data  elements,  you  should  send  the 
report  to  a  132  column  printer. 

EMDTEXT 

DO  WHILE  .HOT.  PRIHTEBi'PpSsQq* 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?* 
GET  PRIHTEB 
BEAD 
EHDDO 

CLEAR 

IF  UPPER (PRIHTEB) =*Q' 

SAVE  TO  EMI S. MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETUBH 
EHDIF 

IF  UPPER(PRIMTER)»*S' 

TEXT 


Most  reports  are  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  \intll  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

fCOHTROL  S> 

To  START  the  report  scrolling  again  type 

<BETURH> 


EHDTEXT 

WAIT 

CLEAR 
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BEPOBT  FORM  600BPTSC.FRM  TO  SCREEN 
WAIT 
EHDIF 

IF  OPPER(PRIHTEB)»'P* 

CLEAR 

WAIT  ‘Ready  printer  and  preee  <RETURN>* 

REPORT  FORM  600BPTPC.FRM  TO  PRINT 
ENDIF 

CLEAR 

RETURN 

ENDDO 

«  EOF:  600RFTC.PRQ 

««««•«•»•»»»»»»»«•»«»«««•«»»»» 

•  Program.:  600RPTD.PBQ 

•  Author..:  Capt  Jeff  Bailey 

»  Laet  Revision:  9  August  1988 

«  Notes...:  Create  a  report  of  records  in  the  Air  Force  Form  600 

0  EquipMnt  Control  Register  managed  by  a  user  specified 

•  equipment  technician 

•  Called  from  OOORPT.PRO 

USE  AFFM800 
00  WHILE  .T. 

•  Input  Printer/Screen  Request 
J  «  251 

•  15,18  SAT  CHB(J} 

PRINTER  »  •  ‘ 

CLEAR 

•  Initialize  Memory  Variables 
STORE  SPACE (1)  TO  MTO 

TEXT 


This  report  will  provide  a  list  of  records  in  the  Air  Force 
Form  600  file  by  desk  nuisber  of  the  technician  assigned  to 
process  the  request. 

ENDTEZT 

•  Input  Desk  Number 

•  20,15  SAY  'Enter  Desk  Number  ‘  GET  MTO  PICTURE  ‘N‘ 

BEAD 

SET  FILTER  TO  FWD_T0  «  MTO 
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00  TOP 
CLEAB 

TEXT 

Sine*  the  coaputer  8CP««n  18  only  80  coltinna  wide,  a  report  sent 
to  the  screen  will  not  include  the  following  data  eleaents: 

Ciistodian  Request  Hunber 
Type  of  Action 
Date  Forwarded 
Forwarded  To 
Date  Returned 

If  you  need  to  see  these  data  elenents,  you  should  send  the 
report  to  a  132  column  printer. 

EHDTEXT 

DO  WHILE  .HOT.  PRIMTERH'PpSsQq' 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?’ 
QET  PRIHTER 
READ 
EHDDO 

CLEAR 

IF  OPPER(PRIHTER)**Q* 

SAVE  TO  000. MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURH 
EHDIF 

IF  0PPER(PRI1ITER)  =  'S' 

TEXT 


Most  reports  are  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

(CONTROL  S> 


To  START  the  report  scrolling  again  type 

(RETURN) 
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ESDTm 


WAIT 

CLEAB 

BEPOBT  FOBM  600BPTSD.FBM  TO  SCREEM 
WAIT 
EMDIF 

IF  nPPEH(PBIMTEB)='P‘ 

CLEAB 

WAIT  ‘Ready  printer  and  press  <RETnBN>‘ 
REPORT  FORM  600RPTPD.FRM  TO  PRIMT 
ERDIF 

CLEAR 

RETUBH 

EMDDO 

*  EOF:  600RPTD.PRO 


•  ProEraa. :  dOORPTE.PBQ 

»  Author..:  Capt  Jeff  Bailey 
«  Last  Revision:  0  August  1988 

•  Motes...:  Create  a  report  of  records  in  the  Air  Force  600 

•  Equipment  Control  Register  submitted  by  a  user  specified 

«  Organization  and  Shop  Code 

«  Called  from  800RPT.PRO 

BSE  AFFM600 
DO  WHILE  .T. 

«  Input  Printer/Screen  Request 
J  »  251 

•  13,18  SAT  CHR(J) 

PRIMTER  *  •  ■ 

CLEAR 

TEET 


This  report  will  provide  a  list  of  all  of  the  records  in  the  Air 
Force  Fora  600  file  which  were  submitted  by  the  organization  and 
shop  code  you  specify. 


EHDTEXT 


•  Initializ*  Menory  Variable 
STORE  SPACE(5)  TO  MORG 

»  Input  Organization/Shop  Code 

•  20,15  SAT  'Enter  desired  Organization  and  Shop  Code'; 

GET  MORG  PICTURE  '9d9AA' 

READ 

SET  FILTER  TO  ORG.SHOP  -  MORG 

GO  TOP 

CLEAR 

TEW 

Since  the  coaputer  screen  is  only  80  coluans  wide,  a  report  sent 
to  the  screen  will  not  Include  the  following  data  elements: 

Custodian  Request  Rumber 
Type  of  Action 
Date  Forwarded 
Forwarded  To 
Date  Returned 

If  you  need  to  see  these  data  elements,  you  should  send  the 
report  to  a  132  column  printer. 

BRDTEXT 

DO  WHILE  .HOT.  PRIHTERA ' PpSsQq ' 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?' 
GET  PSIHTES 
READ 
EHDDO 

CLEAR 

IF  UPPER(PRIHTER)»'Q' 

SAVE  TO  EMIS.MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURH 
EHDIF 

IF  UPPER (PRIMTER)*' S' 

TEXT 


Most  reports  are  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  tbo  report  as  It  aero 1 la  up  tho  scroon  type 

(CONTROL  S> 


To  START  the  report  scrolling  again  type 

(RETURN) 


ENDTEZT 

WAIT 

CLEAR 

REPORT  FORM  600RPTSE.FRM  TO  SCREEN 
WAIT 
ENDIF 

IF  UPPER(PRINTER)=*P’ 

CLEAR 

WAIT  'Ready  printer  and  preaa  (RETURN) ‘ 
REPORT  FORM  600RPTPE.FRM  TO  PRINT 
ENDIF 

CLEAR 

RETURN 

ENDDO 

•  EOF:  0OORPTE.PRQ 


»  Program.:  OOORPTH.PRG 
e  Author..:  Capt  Jeff  Bailey 
t  Last  Revision:  0  August  1968 

«  Notes...:  HELP  for  the  AF  Form  600  Equipment  Control  Register  Reports 
«  Module  of  the  Equipment  Management  InforMtion  System 

•  Called  From  600SPT.PSG 

CLEAR 

TEXT 

Welcome  to  the  Air  Force  Form  600  reports  module  of  the 
Equipment  Managenwnt  Information  System.  This  module  will  provide 
you  with  information  needed  to  manage  the  processing  of  equipment 
requests  logged  in  on  the  AF  Form  600  Control  Log. 
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Cwrantly.  this  ■oduls  provides  the  following  reports: 


All  Records  In  The  Log 
Active  Bequests  Only 
Bequests  Received  By  A  Particular  Date 
Bequests  Managed  By  A  Particular  Technician 
Bequests  By  Organization/Shop  Code 


The  requiresMnt  lor  the  Air  Force  Form  600  Log  is  outlined  in 
AFM  67-1,  Vol  II,  Part  2,  Ch  22.  Para  25b  and  Atch  B-4. 
EHDTEXT 

WAIT  SPACE(ll)  *  'Press  any  key  to  return  to  the  Air  Force  *; 
‘Form  600  Reports  Menu.* 

CLEAR 

RETUBH 

«  EOF:  dOORPTH.PBG 


»  Program.:  600HLP.PRQ 

•  Author..:  Capt  Jeff  Bailey 

*  Last  Revision:  9  August  1988 

•  Notes...:  HELP  for  the  AF  Form  600  Equipment  Control  Register  Module 

*  of  the  Equipment  Management  Information  System 

V  Called  From  600. PRO 

CLEAR 

TEXT 

Welcome  to  the  Air  Force  Form  600  module  of  the  Equipment 
Management  Information  System.  This  module  will  assist  you  in 
maintaining  yoxir  AF  Form  600  Control  Log  on  the  microcomputer. 

It  allows  you  to  add,  update,  and  delete  your  entries  to  the  log. 

It  also  can  provide  you  with  several  reports  for  managing  the 
processing  of  equipment  requests. 


Currently,  this  aoduls  supports  tbs  follo»in|  tasks: 


•eei 

Add  Records  To  Tbs  Log 

Update  Records  In  Tbs  Log 

Deists  Rseords  Froa  Tbs  Log 

Process  Reports 

Tbs  rsqulrsasnt  for  tbs  Air  Fores  Fora  600  Log  is  outlinsd  in 
AFM  67-1,  Tol  II.  Part  2.  Cb  22.  Para  25b  and  Atch  B-4. 
EMDTEXT 

WAIT  SPACB(20)  *  'Prsss  any  ksy  to  sss  aors  HELP.' 

CLEAR 

TEST 


Froa  tbs  Air  Fores  Fora  600  asnu,  prsss  tbs  following 
Isttsrs  to  bsgin  working: 

To  ADD  rseords  to  tbs  Air  Fores  Form  600  Log  prsss  [A] 

To  UPDATE  rseords  in  tbs  Air  Fores  Fora  600  Log  prsss  [B] 

To  DELETE  rseords  in  tbs  Air  Fores  Form  600  Log  prsss  [C] 

To  run  a  REPORT  on  inforsMtion  in  tbs  AF  Form  600  Log  press  [D] 
To  QUIT  using  tbs  systsm  prsss  [Q] 


EHDTEET 

WAIT  SPACE(20)  >  'Prsss  any  ksy  to  sss  mors  HELP.' 

CLEAR 

TEXT 

Tbs  data  slsmsnts  ussd  in  the  Air  Force  Form  600  Control  Log  are 
listed  below.  The  te^>late  can  be  interpreted  as  follows:  A  '9' 
means  a  number  is  required,  an  'A*  means  a  letter  is  required,  and 
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an  *X*  Mans  aitbar  a  nuiri>aF  or  a  lattar  is  alloMd. 


Common  NaM 

Width 

Template 

EquipMnt  Coda 

1 

A 

Organization/Shop  Coda 

5 

999AA 

Custodian  Request  lumbar 

8 

99999999 

In-Usa  DocuMnt  lumbar 

4 

9999 

ISI  or  Part  lumbar 

15 

9999XXmEXmA 

Action  Baquastad 

3 

AAA 

loMnclatura 

20 

XXXVKKXkXKXXXXXXKXXX 

Julian  Data  Racaivad 

4 

9999 

Julian  Data  Forwarded 

4 

9999 

Forwarded  To 

1 

X 

Julian  Data  Returned 

4 

9999 

Completion  Action 

10 

xxxxxxxxxx 

In  addition,  aacta  raeord  input  to  tba  log  is  asslgnad  a  five-digit 
control  nuabar  by  tba  system. 

EMDTEZT 

WAIT  SPACE(ll)  ‘Press  any  key  to  return  to  the  Air  Force  *; 

‘Form  600  Mnu.  * 

CLEAB 

RETUHM 

•  EOF:  OOOHLP.PBG 


•  Program.:  TA.PBQ 

»  Author..:  Capt  Jeff  Bailey 

•  Last  Bavision;  0  August  1988 

»  Hotas...:  Parform  Tabla  of  Allowance  Review  List  operations 
«  Called  from  EMIS.PBQ 

USE  TA 

DO  WHILE  .T. 

T0DAT»DATE() 

CLEAB 

•  1,7  TO  3,73 

•  4,1  TO  20,77  DOUBLE 

•2,0  SAT  'TABLES  OF  ALLOWANCES  REVIEW 

•  2,66  SAT  ‘LIST’ 

•  8,20  SAT  *[A]  Add  Records  To  The  List* 

•  10,20  SAT  ‘[B]  Update  Records  Previously  Logged  In' 

•  12,20  SAT  '[C]  Delete  Records  Previously  Logged  In' 

•  14,20  SAT  *[D]  Baports' 

•  16,20  SAT  '[H]  Help  -  How  To  Use  This  System' 

•  18,20  SAT  '[Q]  Quit* 

•5,25  SAT  'DATE  TIME* 

•6,23  SAT  TODAT 


f  e. 39  SAT  TIMEO 

•  22.8  SAT  ‘[Enter  Selection  (A  -  D,  H  for  help,  or  Q  to  quit)  : 


DO  WHILE  I»0 
I>IIKET() 

•  6.39  SAT  TIMEO 

•  22.60  SAT  “ 

IF  UPPES(CHB(I))«‘ABCDHQ‘ 
EXIT 
EHDIP 
I»0 

EXDDO 

•  22.60  SAT  UPPEB(CHS(I}) 

DO  CASE 

CASE  CHB(I)  $  ‘Qq‘ 

SATE  TO  TA.MEM 
CLEAB  ALL 
CLEAB 

CLOSE  DATABASES 
RETUBH 

CASE  CHB(I)  i  *Aa* 

CLEAB 
CLOSE  ALL 
DO  TAADD 

CASE  CHB(I)  i  *Bb‘ 

CLEAB 
CLOSE  ALL 
DO  TAEDT 

CASE  CHB(I)  t  ‘Cc‘ 

CLEAB 
CLOSE  ALL 
DO  TADEL 

CASE  CHBd)  *  ’Dd' 

CLEAB 
CLOSE  ALL 
DO  TABPT 

CASE  CHBd)  $  'Hh‘ 

CLEAB 
CLOSE  ALL 
DO  TAHLP 

EHDCASE 

EVDDO 

»  EOF:  TA.PBO 
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»  PPOgPAB. :  TAADD.PRQ 
»  Author..:  Capt  Joff  Bailey 
*  Last  Revision:  9  August  1988 

»  Votes...:  Add  records  to  the  Table  of  Allowance  Review  List 
«  Called  from  TA.PRG 

USE  TA 

DO  NHILE  .T. 

CK)  BOTTOM 

»  IHITIALIZE  MEMORY  VARIABLES 
STORE  000  TO  MTA.VR 
STORE  0000  TO  MTA.OT 
STORE  0000  TO  UFA  RCVD 
STORE  SPACECl)  TO  MTA_FWD_T0 
STORE  0000  TO  MTA.FWD  DT 
STORE  0000  TO  MTA  DUE 
STORE  0000  TO  MTA.RTH 

»  DRAW  IMPUT  SCREEV 

CLEAR 

DO  WHILE  .T. 

TODAT>DATE() 

CLEAR 

•  1,9  TO  3,71 

•  6,0  TO  20,77  DOUBLE 

•  2, 11  SAT  ’TABLE  .  OF  ALLOWANCE  ADD  ' 

•  2,56  SAT  'R  0  U  T  I  N  E’ 

•  7,15  SAT  ’Table  of  Allowance:  ’  GET  MTA_HR  PICTURE  ’999’ 

•  9,15  SAT  ’Julian  Date  of  TA:  ’  GET  MTA.DT  PICTURE  ’9999’ 

•  11,15  SAT  ’Julian  Date  Received:  ’  GET  MTA  RCVD  PICTURE  ’9999’ 

•  13,15  SAY  ’Forwarded  To:  ’  GET  MTA.FTO.TO  PICTURE  ’X’ 

•  15,15  SAY  ’Julian  Date  Forwarded:  ’  GET  MTA_FWD_DT  PICTURE  ’9999’ 

•  17,15  SAT  ’Julian  Date  of  Suspense:  ’  GET  MTA.DUE  PICTURE  ’9999’ 

•  19,15  SAY  ’Julian  Date  Returned:  ’  GET  MTA  RTH  PICTURE  ’9999’ 

READ 

»  CHECK  FOR  CORRECT  ENTRY 
CORRECT*’  ’ 

DO  WHILE  .HOT.  CORRECT* ’ YyHn ’ 

•  22,15  SAY  ’Is  This  Correct?  (Y/H) ’  GET  CORRECT 
READ 

•  22,15 
EHDDO 

IF  UPPER (CORRECT) =’N’ 

GOON*’  ’ 

DO  WHILE  .NOT.  GOONS ’YyNn’ 


•  22. IS  SAT  'Would  You  Like  To  Continue?  (T/N) ’  GET  GOON 
BEAD 

•  22.15 
EHDDO 

IF  DPPEB(GOOH)='N‘ 

•22.15  SAY  'BeturninI  to  TA  Beview  List  Main  Menu' 

CLEAB 

BETUBH 

ENDIF 

EHDDO 

EBDIF 

APPEND  BLAMK 

BEPLACE  TA.NB  WITH  MTA.NB 
BEPLACE  TA.DT  WITH  MPA  DT 
BEPLACE  TA.BCVD  WITH  MTA_HCVD 
BEPLACE  TA_FWD_TO  WITH  MTA_FWD_TO 
BEPLACE  TA  FWD  DT  WITH  MPA  FWD  DT 
BEPLACE  TA.DtJE  WITH  MPA.DUE 
BEPLACE  TA.BTM  WITH  MPA.BTN 

«  CHECK  FOB  AMOTHEB  INPUT 
AHOTHEB»'  ' 

DO  WHILE  .MOT.  AMOTHEB* ' YyMn ' 

•22.15  SAY  'Input  Another  TA?  (Y/M) '  GET  AMOTHEB 
BEAD 

•  22.15 
EHDDO 


IF  DPPEB  (AMOTHEB) »'Y' 

CLEAB 

EXIT 

EHDIF  ji 

IF  DPPEB  (AMOTHEB) ='H' 

•22.15  SAY  'Beturning  to  TA  Beview  List  Main  Menu' 

CLEAB 

BETUBH 

ENDIF  jl 


CLEAB 

EHDDO 

EHDDO 

«  EOF:  TAADD.PBG  jj 


»  Program.:  TAEDT.PBG 
»  Author..:  Capt  Jeff  Bailey 

•  Last  Bevision:  9  August  1988  Ji 

•  Notes...:  Edit  records  in  the  Table  of  Allowance  Beview  List 

•  Called  from  TA.PBG 
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00  MOBECOBO 


DO  WHILE  .T. 

•  INITIALIZE  MEMOBT  VABIABLES 

STOBE  000  TO  MTA.NB 
STOBE  0000  TO  MTA.DT 
STOBE  0000  TO  Wtk  BCVD 
STOBE  SPACE  (1)  TO  IfPA.FWD.TO 
STOBE  0000  TO  MTA.FWD.DT 
STOBE  0000  TO  ItrA.DUE 
STOBE  0000  TO  IITA.BTM 

DO  WHILE  .T. 

ft  DBAW  IMPOT  SCBEEH 
CLEAfi 

DO  WHILE  .T. 

TODAY»DATE() 

CLEAR 

•  1,9  TO  3.71 

•  6,0  TO  20,77  DOUBLE 

•2,11  SAT  ’TABLE  OF  ALLOWANCE  EDIT 

•  2,S9  SAT  ’B  0  U  T  I  H  E' 

•  7,15  SAT  ‘Table  of  Allowance:  ‘ 

•  9,15  SAT  ‘Julian  Date  of  TA:  ‘ 

•  11,15  SAT  ‘Julian  Date  Deceived :  ‘ 

•  13,15  SAT  ‘Forwarded  To:  ‘ 

•  15,15  SAT  ‘Julian  Date  Forwarded:  ‘ 

•  17,15  SAT  ‘Julian  Date  of  Suspense: 

•  19,15  SAT  ‘Julian  Date  Beturned:  ‘ 


ft  Input  Table  of  Allowance  Number 

•  22,15  SAT  ‘Enter  TA  Number'  SET  irTA.NB  PICTURE  ‘999‘ 

BEAD 

ft  Search  for  requested  TA  number 
LOCATE  FOB  TA.NB  >  MTA.NB 

IF  .NOT.  FOUND 0 

ft  TA  NUMBEB  IS  NOT  IN  THE  LOO 

•  22,15 

•  22,15  SAT  ‘TA  Number’  GET  MTA.NB  PICTURE  ‘999’ 

•  22,30  SAT  ‘cannot  be  found.* 

CLEAB  GETS 

GOON  «  ‘  ‘ 

DO  WHILE  .NOT.  GOONi’TyNn* 

•  23,15  SAT  ‘Would  Tou  Like  To  Continue?  (T/N) ‘  GET  GOON 
BEAD 


EHDDO 


IF  0PPEB(GK)0»)**H' 

•23,15  SAY  'Betupning  to  TA  Beview  Main  Menu* 
CLEAB 
BETUBN 
EHDIF 

CLEAB 

LOOP 

EHDIF 


«  If  record  is  located,  display  data 

•  1,9  TO  3,71 

•  6,0  TO  20,77  DOUBLE 

•2,11  SAT  'TABLE  OF  ALLOWANCE  EDIT 

•  2,59  SAT  'B  0  U  T  I  H  E* 

•  7,15  SAY  'Table  of  Allowance:  *  GET  TA_MH  PICTOBE  '999* 

•  9,15  SAY  'Julian  Date  of  TA:  *  GET  TA  DT  PICTOBE  *9999* 

•  11,15  SAY  'Julian  Date  Becelved:  *  GET  TA_BCVD  PICTOBE  *9999* 

•  13,15  SAY  'Forwarded  To:  '  GET  TA_FWD_T0  PICTOBE  *X' 

•  15,15  SAY  'Julian  Date  Forwarded:  *  GET  TA  FWD.DT  PICTOBE  *9999* 

•  17,15  SAY  'Julian  Date  of  Suspense:  *  GET  TA.DOE  PICTOBE  *9999* 

•  19,15  SAY  'Julian  Date  Beturned:  *  GET  TA.BTN  PICTOBE  *9999' 

CLEAB  GETS 
COBBECT  »  '  ' 

DO  WHILE  HOT.  COBBECTA ' YyHn * 

•  22,15 

•  22,15  SAY  *I8  this  the  correct  TA?  (Y/M) *  GET  COBBECT 
BEAD 

EHDDO 

IF  OPPEB(COBBECT)=*H' 

•  22,15 
GOOH  s  *  ' 

DO  WHILE  .NOT.  GOONf'YyNn* 

•  22,15  SAY  'Would  You  Like  To  Continue?  (Y/H) '  GET  GOON 
BEAD 

•  22,15 
EHDDO 

IF  OPPEB(aOOH)»*H' 

•22,15  SAY  'Beturnlng  to  TA  Beview  Main  Menu* 

CLEAB 

BETOBH 

EHDIF 

LOOP 

EHDIF 

•  1,9  TO  3,71 

•  6,0  TO  20,77  DOUBLE 


•  2,11  Si  ‘TABLE  OF  ALLOWANCE  EDIT 

•  2  59  SAT  ‘ROUTINE* 

•  7,13  SAY  ‘Table  of  Allowance:  ‘  GET  TA_NR  PICTURE  '999' 

•  9,15  SAY  ‘Julian  Date  of  TA:  ‘  GET  TA_DT  PICTURE  ‘9999* 

•  11,15  SAY  ‘Julian  Date  Received:  ‘  GET  TA  RCVD  PICTURE  ‘9999* 

•  13,15  SAY  ‘Forwarded  To:  ‘  GET  TA_FWD_T0  PICTURE  ‘X‘ 

•  15,15  SAY  ‘Julian  Date  Forwarded:  ‘  GET  TA_FWD_DT  PICTURE  ‘9999* 

•  17,15  SAY  ‘Julian  Date  of  Suspense:  ‘  GET  TA.DUE  PICTURE  ‘9999* 

•  19,15  SAY  ‘Julian  Date  Returned:  ‘  GET  TA.RTN  PICTURE  ‘9999* 

•22,15  SAY  ‘Go  ahead  and  make  the  necessary  changes.' 

READ 

•22,15 

CORRECT  »  ‘  ‘ 

>  Check  for  correct  entry 
DO  raiLE  .NOT.  CORRECTi'YyNn* 

•  22,15  SAY  ‘Is  This  Correct?  (Y/N) ‘  GET  CORRECT 
READ 

•  22,15 
ENDDO 

IF  UPPER(CORRECT)=‘N‘ 

GOON  »  ‘  ‘ 

DO  WHILE  .NOT.  GOONi'YyNn* 

•  22,15  SAY  ‘Would  You  Like  To  Continue?  (Y/N) ‘  GET  GOON 
READ 

•  22,15 
ENDDO 

IF  UPPER(GOON)*‘N‘ 

•22,15  SAY  ‘Returning  to  TA  Review  Main  Menu' 

CLEAR 

RETURN 

ENDIF 

ENDDO 

ENDIF 

IfTA.NR  »  TA_NR 
MTA_DT  =  TA_DT 
MTA.RCVD  »  TA_RCVD 
irPA_FWD_TO  *  TA_FWD_TO 
MTA.FWD.DT  =  TA  FWD'dT 
IfTA  DOE  =  TA  DUE 
irPA_RTN  »  TA_RTN 

REPLACE  TA_NR  WITH  MTA  NR 
REPLACE  TA_DT  WITH  IfTA.DT 
REPLACE  TA.RCVD  WITH  MTA  RCVD 
REPLACE  TA_FW_TO  WITH  MTA  FWD_TO 
REPLACE  TA_FWD_DT  WITH  IffA.FWDlDT 
REPLACE  TA.DUE  WITH  MTA  DUE 
REPLACE  TA  RTN  WITH  MTA  RTN 
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•  Check  for  another  edit 
AVOTHEB  >  * 

DO  WHILE  .MOT.  AMOTHEBt ' TyMn ‘ 

•22,15  SAY  *npdate  Another  Becord?  (Y/H) '  GET  ANOTHEB 
BEAD 

•  22,15 
EMDDO 

IF  UPPEB  (AMOTHEB)*’M’ 

•22,15  SAY  'Beturnlnl  to  TA  Beview  Main  Menu' 

CLEAB 

BETOBH 

EMDIF 

EMDDO 

EMDDO 

»  EOF:  TAEDT.PBG 

»•«»»«»»«»««•»«»«««»»«»«•«»««» 

«  Pro^raa. :  TADEL.PBG 
«  Author..:  Capt  Jeff  Bailey 
»  Laet  Bevieion:  9  Au|uet  1988 

*  Motes...:  Delete  records  from  the  Tables  of  Allowances  Beview  List 

*  Called  from  TA.PBG 

USE  TA 
DO  WHILE  .T. 

DO  MOBECOBD 
DO  WHILE  .T. 

»  IMITIALIZE  MEMOBY  7ABIABLES 

STOBE  000  TO  MTA.NB 
STOBE  0000  TO  irPA_DT 
STOBE  0000  TO  MTA  BCVD 
STOBE  SPACEd)  TO  irPA_FWD_TO 
STOBE  0000  TO  lfrA_FWD_DT 
STOBE  0000  TO  MTA  DUE 
STOBE  0000  TO  IffA.BTM 

DO  WHILE  .T. 

•  DBAW  SCBEEM 
CLEAB 

DO  miLE  .T. 

TODAY»DATE() 

CLEAB 
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f  1,4  TO  3,70 

•  6,0  TO  20,77  DOUBLE 

•2, 6  SAT  'TABLES  OF  ALLOWANCES  DELETE 

•  2,62  SAT  *B  0  U  T  I  M  E' 

•  7,15  SAT  'Table  of  Allovunce:  ' 

•  9,15  SAT  'Julian  Date  of  TA:  ' 

•  11,15  SAT  'Julian  Date  Beceived:  ' 

•  13,15  SAT  'Forwarded  To:  ' 

•  15,15  SAT  'Julian  Date  Forwarded: 

•  17,15  SAT  'Julian  Date  of  Suepense: 

•  19,15  SAT  'Julian  Date  Beturned: 

»  Input  Table  of  Allowance  Number 

•  22,15  SAT  'Enter  TA  Number'  QET  ITTA  NB  PICTUBE  '999' 

BEAD 


«  Search  for  requested  TA  number 
LOCATE  FOB  TA.NB  >  MTA.NB 

IF  .NOT.  FOUNDO 

•  TA  NUMBEB  IS  NOT  IN  THE  LOO 

•  22,15  j 

•  22,15  SAT  'TA  Number'  OET  ITTA.NB  PICTUBE  '999' 

•  22,30  SAT  'cannot  be  found.' 

CLEAB  GETS 

GOON  «  '  ' 

DO  WHILE  .NOT.  GOONA'TyNn'  | 

•  23,15  SAT  'Would  Tou  Like  To  Continue?  (T/N) '  GET  GOON 
BEAD 
ENDDO 

IF  DPPEB(GOON)»'B' 

#23,15  SAT  'Beturning  to  TA  Beview  Main  Menu' 

CLEAB  I 

BETUBN 
ENDIF 
CLEAB 
LOOP 
ENDIF 

I 

•  If  record  is  located,  display  data 

•  1,4  TO  3,76 

•  6,0  TO  20,77  DOUBLE 

•2, 6  SAT  'TABLES  OF  ALLOWANCES  DELETE 

•  2,62  SAT  'B  0  U  T  I  N  E'  I 

•  7,15  SAT  'Table  of  Allowance:  '  GET  TA.NB  PICTUBE  '999' 

•  9,15  SAT  'Julian  Date  of  TA:  '  GET  TA_DT  PICTUBE  '9999' 

•  11,15  SAT  'Julian  Date  Beceived:  '  GET  TA  BCVD  PICTUBE  '9999' 

•  13,15  SAT  'Forwarded  To:  '  GET  TA  FWD  TO  PICTUBE  'X' 

•  15,15  SAT  'Julian  Date  Forwarded:  '  GET  TA.FWD  DT  PICTUBE  '9999' 

•  17,15  SAT  'Julian  Data  of  Suspense:  '  GET  TA.DUE  PICTUBE  '9999'  | 

•  19,15  SAT  'Julian  Date  Beturned:  '  GET  TA  BTN  PICTUBE  '9999' 

CLEAB  GETS 
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CORBKCT  *  • 

DO  HHILE  .HOT.  COBBECTt ‘ YyMn * 

•  22,15 

•  22,15  SAY  *18  this  the  correct  record?  (Y/H) '  GET  COBRECT 
BEAD 

EMDDO 

IF  OFFER (COBBECT)»'H' 

•  22,15 
QOOH  =  •  * 

DO  WHILE  .NOT.  OOONi'YyHn' 

•  22,15  SAY  ‘Would  You  Like  To  Continue?  (Y/H) ‘  GET  GOOH 
READ 

•  22,15 
EHDDO 

IF  OFFER (GOOH) *‘H‘ 

•22,15  SAY  ‘Returning  to  TA  Review  List  Main  Menu‘ 

CLEAR 

RETORH 

EHDIF 

LOOF 

EHDIF 

MCORRECT  «  ‘ 

DO  WHILE  .HOT.  MCORRECT* * YyNn * 

•22,15 

•22,15  SAY  ‘Are  you  sure  that  you  want  to  delete  this  record? ‘ 
‘(Y/H)‘  GET  MCORRECT 
READ 
EHDDO 

IF  OFFER(MCORRECT)»‘H‘ 

•23,15  SAY  ‘This  record  will  not  be  deleted. ‘ 

DO  FAOSE 
•22,15 
•23,15 
MQOOH  >  ‘ 

DO  WHILE  .HOT.  MGOONf‘YyNn‘ 

•  22,15  SAY  ‘Would  You  Like  To  Continue?  (Y/N) ‘  GET  MGOON 
READ 

•  22,15 
EHDDO 

IF  OFFER(MQOOH)>‘H’ 

•22,15  SAY  ‘Returning  to  TA  Review  List  Main  Menu‘ 

CLEAR 

RETORH 

EHDIF 

EHDDO 


EVDIP 


DELETE  ALL  FOB  TA  HB  »  MTA  MB 
PACK 


•  Ch«ck  for  another  delete 
MAMOTHEB  >  ‘ 

DO  WHILE  .NOT.  MANOTHEBA * TyNn * 

•22,15 

•22,15  SAY  'This  record  has  been  deleted.* 

•23,15  SAY  ‘Would  you  like  to  delete  another  record?  (Y/N) * ; 
GET  MAMOTHEB 
DO  PAUSE 
BEAD 
•22,15 
•23,15 
EMDDO 

IF  UPPEB  (MAMOTHEB) «’N‘ 

•22,15  SAT  ‘Beturning  To  TA  Beview  List  Main  Menu* 

CLEAB 

BETOBM 

EMDIF 

EMDDO 

EMDDO 

»  EOF:  TADEL.PBG 


««««««««*«#»»»»»»»»*»»»»»»»»»» 

•  Prof ran. ;  TABPT.PBG 

»  Author..:  Capt  Jeff  Bailey 

•  Last  Bevision:  9  Aufust  1988 

«  Motes...:  Create  Beports  from  the  Table  of  Allowance  Beview  List 

•  Called  froB  TA.PBG 

USE  TA 
DO  MOBECOBD 
DO  WHILE  .T. 

TODAY»DATEO 
CLEAB 

•  1,6  TO  3,76 

•  2,8  SAY  ’T  A  B  L  E  OF 

•  2,62  SAY  ‘B  0  U  T  I  M  E* 

•  4,1  TO  21,77  DOUBLE 
•5,25  SAT  ‘DATE 
•6,23  SAY  TODAY 

•  6,39  SAT  TIMEO 

•  8,20  SAY  ‘[A]  All  Tables 

•  10,20  SAT  ‘[B]  Tables  of 

•  12,20  SAT  ‘[C]  Tables  of 


ALLOWANCE  BEPOBTS 


TIME* 


of  Allowances* 

Allowances  Under  Beview* 

Allowances  Under  Beview  More  Than  20  Days* 
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•  14,20  SAT  ‘[Dl  T»ble«  of  Allowancofl  By  TA  Humber* 

•  16,20  SAT  ’[HI  Help  -  How  To  Use  The  Reports  System* 

•  18,20  SAT  '[Q]  Quit* 

•  23,8  SAT  ’[Enter  Selection  (A  -  D,  H  for  help,  or  Q  to  quit)  :  :]* 


1*0 

DO  IfHILE  1*0 
I«IHKET() 
f  6,30  SAT  TIIIEO 
•  23,60  SAT  " 

IP  UPPBB(CHB(l))i*ABC0HQ' 

EXIT 

EMDIF 

1*0 

EHDDO 

•  23,60  SAT  UPPEB(CHR(I)) 

»  IHPOT  PBIMTER/SCREEH  REQUEST 
J  *  251 

DO  CASE 

CASE  CHB(I)  i  ‘Qq* 

SATE  TO  TA.MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
BETUBH 

CASE  CHR(I)  $  'A«* 

§8,18  SAT  CHR(J) 

DO  PAUSE 
DO  TARPTA 

CASE  CHRd)  $  *Bb' 

§10,18  SAT  CHR(J) 

DO  PAUSE 
DO  TARPTB 


CASE  CHS(I)  8  *Cc* 
§12,18  SAT  CHS(J) 
DO  PAUSE 
DO  TARPTC 


CASE  CHRd)  t  ’Dd*  I 
§14,18  SAT  CHR(J)  M 
DO  PAUSE  1 
DO  TARPTD  ] 


CASE  CHRd)  8  *Hh‘ 
§16,18  SAT  CHR(J) 
DO  TARPTH 


EHDCASE 
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i 


BMDOO 


»  EOF:  TABPT.PBa 

»•»««««»««««»««»«»»»»«»««»••»« 

•  Prograa. :  TABPTA.PBO 

•  Author..:  Capt  Jaff  Bailey 

*  Last  Bevision:  9  August  1988 

e  Notes...:  Create  a  report  containing  all  Tables  of  Allowances  in  the 
»  TA  Beview  List 

*  Called  from  TABPT.PBO 

USE  TA 
00  WHILE  .T. 

*  Input  Printer/Screen  Bequest 
J  *  281 

•  8,18  SAT  CHB(J) 

PBINTEB  »  •  * 

CLEAB 

TEXT 

This  report  will  provide  a  list  of  all  of  the  Tables  of  Allowances 
in  the  TA  Beview  List. 

BNOTEXT 

DO  WHILE  .HOT.  PBINTEB* ‘PpSsQq* 

•22,15  SAT  ‘Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?' 
QET  PBINTEB 
BEAD 
ENDOO 

CLEAB 

IF  UPPEB(PBINTEB)«‘Q' 

SATE  TO  TA.MEM 
CLEAB  ALL 
CLEAB 

CLOSE  DATABASES 
BETUBN 
EHDIF 

IF  UPPEB(PBINTEB)>‘S‘ 

TEXT 


Most  reports  are  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 
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To  STOP  tho  report  as  it  scrolls  up  tho  serton  type 

<COMTBOL  S> 


To  STABT  the  report  scrolling  again  type 

<BETtnur> 


EHDTEXT 

WAIT 

CLEAB 

BEFOBT  FOBM  TARPTA.FBM  TO  SCSEEH 
WAIT 
EKDIF 

IF  DPPEB(PBIMTEB)»*P* 

CLEAB 

WAIT  ’Beady  printer  and  press  <BETnBM>* 
BEPOBT  FOBM  TABPTA.FBM  TO  PBINT 
EBDIF 

CLEAB 

BETOBV 

EHDDO 

«  EOF:  TABPTA.PBQ 


•  Program.:  TABPTB.PBG 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Bevislon:  9  August  1988 

»  Botes...:  Create  a  report  of  all  Tables  of  Allowances  in  the  TA  List 

•  currently  under  review 

«  Called  from  TABPT.PBO 

USE  TA 

PBIMTEB  «  * 

DO  WHILE  .T. 

SET  FILTEB  TO  TA  BTB  >  0 

00  TOP 

CLEAB 

TEXT 
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This  report  will  provide  a  list  of  all  of  the  Tables  of  Allowances 
in  the  TA  Review  List  which  have  a  blank  in  the  Date  Returned  field 


ERDTEXT 

DO  WHILE  .HOT.  PRINTERS ‘PpSsQq* 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?* 
QET  PRIHTER 
READ 
ENDOO 

CLEAR 

IF  OPPER(PRIirPEH)  =  'Q' 

SATE  TO  TA.MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURH 
EMDIF 

IF  aPPER(PSIHTER)s*S' 

TEXT 


Most  reports  are  longer  than  one  screen.  Therefore,  thejr  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type  | 

I 

<coirrsoL  s>  j 

To  START  the  report  scrolling  again  type 

( 

<RET(rBH>  I 

i 


I 

1 

EHDTEXT 

WAIT 

CLEAR  I 

REPORT  FORM  TARPTB.FRM  TO  SCREEN  i 

WAIT 
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EMDIF 


IF  DPPBH(PBI1ITEB)»’P* 

CLEAB 

WAIT  'Beady  printer  and  press  <BETnBN>‘ 

BEPOBT  FOBM  TABPTB.FBM  TO  PBINT 
EMDIF 

CLEAB 

BETDBM 

ENDDO 

«  EOF;  TABPTB.PBG 

»«»«•»»»»«»••«»«»«»«««»•»»» »»« 

»  Program.:  TABPTC.PBQ 
«  Author..:  Capt  Jeff  Bailey 

•  Last  Bevision:  9  August  1988 

«  Notes...:  Create  a  report  of  Tables  of  Allowances  in  the  TA  Review 

•  List  which  have  been  under  review  more  than  20  days. 

«  Called  fror  TABPT.PBO 

USE  TA 

DO  WHILE  .T. 

»  Input  Printer/Screen  Bequest 
J  »  251 

•  13,18  SAT  CHB(J) 

PBIHTEB  «  *  • 

CLEAB 

TEXT 


This  report  will  provide  a  list  of  all  of  the  records  in  the 
Tables  of  Allowances  Beview  List  iritich  are  currently  being  reviewed 
and  have  been  under  review  for  more  than  20  days. 


EMDTEXT 

»  Initialize  Ifesiory  Variable 
STOBE  0000  TO  MDATE 

•  Input  Today’s  Date 

•  20,15  SAT  'Enter  Today’s  Julian  Date'  GET  MDATE  PICTURE  *9999' 
READ 
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SET  FILTER  TO  TA.RTH  *  0  .ABTO.  TA_FWD_DT  ♦  20  <  MDATE 
00  TOP 

DO  WHILE  .NOT.  PRINTER* 'PpSsQq' 

•22,15  SAY  ’Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?* 
GET  PRINTER 
READ 
ENDDO 

CLEAR 

IF  DPPER(PRINTER)=*Q* 

SATE  TO  TA.MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURN 
ENDIF 

IF  UPPER(PRINTER)=*S* 

TEXT 


Some  reports  are  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

< CONTROL  S> 


To  START  the  report  scrolling  again  type 

(RETURN) 


ENDTEXT 

WAIT 

CLEAR 

REPORT  FORM  TARPTC.FRM  TO  SCREEN 
WAIT 
ENDIF 

IF  OPPER(PRINTER)**P* 

CLEAR 

WAIT  ‘Ready  printer  and  press  (RETURN)* 
REPORT  FORM  TARPTC.FRM  TO  PRINT 
ENDIF 
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CLEAB 

BETUBH 

ENDDO 

«  EOF:  TABPTC.PRa 


•  Ppogram. :  TARPTD.PBQ 

*  Author..:  Capt  Jaff  Bailey 

•  Last  Eevision:  9  August  1988 

>  notes...:  Create  a  report  of  showing  Table  of  Allowances  information 

*  for  a  specific  TA  contained  in  the  TA  Review  List 

»  Called  from  TARPT.PRG 

USE  TA 

00  WHILE  .T. 

>  Input  Printer/Screen  Request 
J  =  251 

•  15,18  SAT  CHR(J) 

PBIHTER  »  ■  ■ 

CLEAB 

•  Initialize  Memory  Variable 
STORE  000  TO  MTA.NR 

TEXT 


This  report  will  provide  information  on  a  user-specified  Table  of 
Allowances  contained  in  the  TA  Review  List. 


EHDTEXT 

•  Input  TA  Number 

•  20,15  SAY  ‘Enter  TA  Number  ‘  GET  MTA  NR  PICTOBE  ‘OOO* 

BEAD 

SET  FILTER  TO  TA  NR  >  MTA  NR 
GO  TOP 

DO  WHILE  .NOT.  PRINTERS 'PpSsQq' 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?*; 
GET  PRINTER 
READ 
ENDDO 

CLEAR 
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IF  0PPEB(PRI1ITEB)  =  *Q‘ 

SAVE  TO  TA.MElf 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURN 
ENDIF 

IF  UPPER(PRIIITER)«‘S’ 

REPORT  FORM  TARPTD.FRM  TO  SCREEN 
ENDIF 

IF  UPPER(PRINTER)=*P* 

WAIT  'Ready  printer  and  press  <RETURN>‘ 

REPORT  FORM  TARPTD.FRM  TO  PRINT 
ENDIF 

WAIT 

CLEAR 

RETURN 

ENDDO 

«  EOF:  TARPTD.PRO 

«»«««««•««««««««««««««»»»««»»» 

»  PrograB. :  TABPTH.PRQ 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Revision:  9  August  1968 

«  Notes...:  HELP  for  the  Tables  of  Allowances  Review  List  Reports 
»  Module  of  the  Equipnwnt  Management  Information  System 

»  Called  From  TARPT.PRG 

CLEAR 

TEXT 

Welcome  to  the  Tables  of  Allowances  Review  List  reports  module  of 
the  Equipment  Management  Information  System.  This  module  will  provide 
you  with  information  needed  to  manage  the  TA  review  process. 


Currently,  this  module  provides  the  following  reports: 
»»•«•»»»»»«»»»«»•••»»»»«»»»»»•»«»»#»»»»»»»»»»««»»»«»»»» 


» 

All  Tables  Of  Allowances  In  The  List  » 

« 

Tables  Of  Allowances  Under  Review  « 

« 

Tables  Of  Allowances  Under  Review  For  >  20  Days  * 

» 

Table  Of  Allowances  By  TA  Humber  » 

» 


«»«««««»«••«»•««•»»«»»»»*»»»»»»»«»»»»»»»»»•»*»»»»»»»»«* 

The  requirement  to  manage  the  Tables  of  Allowances  review  process 
is  contained  in  AFM  67-1,  Vol  II,  Part  2,  Ch  22,  Para  23. 

EHDTEXT 

WAIT  SPACE(ll)  ♦  'Press  any  key  to  return  to  the  Tables  Of 
'Allowances  Review  Menu.' 

CLEAR 

RETURM 

•  EOF:  TARPTH.PRQ 

«•»»»«»! »»•««•»»«»»«»»«»»•»««« 

•  Program.:  TAHLP.PRQ 

•  Author..:  Capt  Jeff  Bailey 

>  Last  Revision:  9  August  1966 

•  Notes...:  HELP  for  the  Tables  of  Allowances  Review  List  Module 

«  of  the  Equipment  Management  Information  System 

«  Called  From  TA.PRG 

CLEAR 

TEXT 

Welcome  to  the  Tables  of  Allowances  Review  List  module  of  the 
Equipment  Management  Information  System.  This  module  will  assist  you 
in  managing  the  TA  review  process.  It  allows  you  to  add,  update,  and 
delete  your  entries  to  the  list.  It  also  can  provide  you  with  several 
reports  for  managing  the  TA  reviews. 
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Currently,  this  •odule  lupporte  the  following  taeks; 


Add  Tablet  of  Allowancee  to  the  List 
Update  Tables  of  Allowances  Informtion 
Delete  Tables  of  Allowances  frow  the  List 
Process  Beports 


The  requirement  to  aanage  the  Table  of  Allowances  review  process 
is  contained  in  AFM  07-1.  Vol  II,  Part  2.  Ch  22,  Para  23. 

BSDTEXT 

WAIT  SPACE (20)  *  'Press  any  key  to  see  more  HELP.' 

CLEAE 

TEXT 


From  the  Tables  of  Allowances  Beview  List  menu,  press  the 
following  letters  to  begin  working: 

To  ADD  TAs  to  the  Tables  of  Allowances  Beview  List  press  [A] 

To  UPDATE  TAs  in  the  Tables  of  Allowances  Review  List  press  [B] 

To  DELETE  TAs  from  the  Tables  of  Allowances  Beview  List  press  [C] 

To  run  a  REPORT  on  the  Tables  of  Allowances  Review  List  press  [D] 

To  QUIT  using  the  system  press  (Q] 


EBDTEZT 

WAIT  SPACE (20)  *  'Press  any  key  to  see  more  HELP. ' 

CLEAR 

TEXT 

The  data  elePMnts  used  in  the  Tables  of  Allowances  Beview  List  are 
listed  below.  The  template  can  be  interpreted  as  follows:  A  '9' 
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Bwans  a  nxiiAcr  ii  required,  an  *A*  aeane  a  letter  is  required,  and 
an  *1'  Mans  either  a  ntnaber  or  a  letter  is  allowed. 


Common  BaM 

Width 

Template 

Table  of  Allowance 

Biunber  3 

999 

Table  of  Allowance 

Date  4 

9999 

Date  Received 

4 

9999 

Forwarded  To 

1 

X 

Forwarding  Date 

4 

9999 

Due  Date 

4 

9999 

Date  Returned 

4 

9999 

EBDTEZT 

WAIT  SPACE! 11)  *  ' 

Press  any  key  to 
List  Mnu.  * 

return  to  the  Tables  of  ‘ 

CLBAfi 

RETOBH 

*  BOP:  TAHLP.PBQ 


•  Pro|raa. :  BES.PBO 

»  Author..:  Capt  Jeff  Bailey 
»  Last  Revision:  9  August  1988 

•  Botes...:  Perform  Configuration  Oata/Resuae  File  Actions 

•  Called  from  EMIS.PRO 

OSE  BBS 
DO  WHILE  .T. 

TODAT^DATEO 

CLEAR 

•  1,9  TO  3,72 

•  2,llSAT’COBFiaOBATIOir  DATA/RESDME 

•  2,83  SAT  *  F  I  L  E* 

•  4,1  TO  20,77  DOUBLE 

•  S,25  SAT  'DATE  TIME' 

•  6,23  SAT  TODAT 

•  6,39  SAT  TIMBO 

•  8,20  SAT  *(A]  Add  An  Organization  Record' 

9  10,20  SAT  '[B]  Update  An  Organization  Record' 

•  12,20  SAT  '[C]  Delete  An  Organization  Record' 

•  14,20  SAT  '[D]  Reports' 

9  16,20  SAT  *[H]  Help  >  How  To  Use  This  System' 

•  18,20  SAT  '[Q]  Quit' 

•  22,8  SAT  '[Enter  Selection  (A  -  D,  H  for  help,  or  Q  to  quit)  : 


I«0 

DO  WHILE  1*0 
I*IHKBT() 

•  6,39  SAT  TIIBO 

•  22,60  SAT  " 
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IF  UPPER(CHB(I))<*ABCDHQ‘ 
EXIT 
EIDIP 

I»0 

ENDDO 

•  22,60  SAT  OPPER(CHS(I)) 

DO  CASE 

CASE  CHR(I)  «  'Qq' 

SATE  TO  BES.MEM 
CLEAB  ALL 
CLEAR 

CLOSE  DATARASES 
RETURR 

CASE  CHRd)  A  ‘Aa* 

CLEAR 
CLOSE  ALL 
DO  RESADD 

CASE  CHRd)  «  'Bb* 

CLEAR 
CLOSE  ALL 
DO  RESEDT 

CASE  CHRd)  i  ‘Cc' 

CLEAR 
CLOSE  ALL 
DO  RESDEL 

CASE  CHRd)  t  ’Dd* 

CLEAR 
CLOSE  ALL 
DO  RESRPT 

CASE  CHRd)  i  *Hb’ 

CLEAR 
CLOSE  ALL 
DO  RESHLP 

EHDCASE 

EHDDO 

•  EOF:  RES. PRO 


•  Program. :  RESADD. PRO 

•  Author..:  Capt  Jeff  Bailey 

•  Laat  Revleion:  0  August  1988 
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•  Votes...:  Add  records  to  the  ConfiVuretion  Dete/Besuae  File 

•  Called  from  BES.PBG 

OSE  BES 

DO  WHILE  .T. 

00  BOTTOM 

•  Initialize  Memory  Variables 

STOBE  000  TO  MABAOl 

STOBE  000  TO  MABAQB 

STOBE  000  TO  MABA03 

STOBE  000  TO  MABAOA 

STOBE  000  TO  MABAOS 

STOBE  000  TO  MABAOO 

STOBE  000  TO  MABAOT 

STOBE  000  TO  MTAl 

STOBE  000  TO  MTA2 

STOBE  000  TO  MTA3 

STOBE  000  TO  MTA4 

STOBE  000  TO  MTAS 

STOBE  000  TO  MTAO 

STOBE  000  TO  MTAT 

STOBE  000  TO  MBBAOl 

STOBE  000  TO  MBBA02 

STOBE  000  TO  MBBAOS 

STOBE  000  TO  MBBAOA 

STOBE  000  TO  MBBAOS 

STOBE  000  TO  MBBAOO 

STOBE  000  TO  MBBA07 

STOBE  0000  TO  MBLOOl 

STOBE  0000  TO  MBL002 

STOBE  0000  TO  MBL003 

STOBE  0000  TO  MBLD04 

STOBE  0000  TO  MBL005 

STOBE  0000  TO  MBLDOO 

STOBE  0000  TO  MBLD07 

STOBE  0000  TO  MBLDOO 

STOBE  000  TO  MCBAOl 

STOBE  000  TO  MCBA02 

STOBE  000  TO  MCBA03 

STOBE  000  TO  MCBA04 

STOBE  000  TO  MCBAOS 

STOBE  000  TO  MCBAOO 

STOBE  000  TO  MCBA07 

STOBE  000  TO  MAUTH.EVL 

STOBE  SPACE(12)  TO  MOFFICE 

STOBE  000  TO  MAOTH  OFF 

STOBE  SPACE (5)  TO  MOBOSHPl 

STOBE  SPACE (5)  TO  MOBOSHP2 

STOBE  SPACE (5)  TO  MOBOSHP3 

STOBE  SPACE (5)  TO  MOBOSHP4 

STOBE  SPACE (5)  TO  MOBOSHPS 

STOBE  SPACE (5)  TO  MOBOSHPO 

STOBE  SPACE (5)  TO  MOBOSHP7 


STOBE  SPACE (2)  TO  MSRADE 
STOBE  000000  TO  MSQF 
STOBE  000  TO  MDBAOl 
STOBE  000  TO  II0BA02 
STOBE  000  TO  HDBAGS 
STOBE  000  TO  MOBAQA 
STOBE  000  TO  MOBAOS 
STOBE  000  TO  MOBAGO 
STOBE  000  TO  IIDBAOT 

«  Draw  Input  Scraan 
CLEAB 

DO  BBILE  .T. 

TODAT*DATE() 

CLEAB 

•  1,0  TO  3,71 

•2,11SAT'C0HFIG0BATI0N  DATA  ADD 

•  2,S7  SAT  .'B  0  0  T  I  IT  E* 

•  6,0  TO  20,77  DOUBLE 

•  7,48  SAT  'Of flea  Symbol:  *  GET  MOFFICE  PICTUBE  'XXXXXXXXXm' 

•  8,10  SAT  'Saniop  Gpada:  '  GET  MGRADE  PICTURE  'OA' 

•  8,24  SAT  'Off leapt:  '  GET  MAUTH  OFF  PICTURE  '999' 

•  8,43  SAT  'Enllatad:  '  GET  MAUT  ENL  PICTURE  '999' 

•  0,20  SAT  'AuthoPlzad  TA’a:  '  GET  MTAl  PICTURE  '900' 

•  0,42  GET  IITA2  PICTUBE  *909* 

•  0,46  GET  MTAS  PICTUBE  *099* 

•  9,80  GET  MTA4  PICTUBE  *999* 

•  9,S4  GET  MTAS  PICTUBE  *999* 

•  9,58  GET  HTAO  PICTUBE  *090* 

•  9,66  GET  lffA7  PICTUBE  *999* 

•  11,42  SAT  *Bulldln8a:  *  GET  MBLDGl  PICTURE  *9999* 

•  11,59  GET  IIBL0G2  PICTURE  *9999* 

•  11,63  GET  MBLDGG  PICTUBE  *9999* 

•  11,67  GET  1IBLDG4  PICTURE  *9999* 

•  12,55  GET  MBLDGS  PICTURE  *9990* 

•  12,50  GET  IIBLDG6  PICTURE  *9999* 

•  12,63  GET  IBLDG7  PICTUBE  *9999* 

•  12,67  GET  IIBL0G8  PICTURE  *9999* 

•  14,42  SAT  *Squapa  Faat:  *  GET  MSQF  PICTURE  *999999* 

•  15,42  SAT  'Mobility  Taaklngs* 

•  16,30  SAT  *Opg/Shop  A-Bag  B>Bag  U-Bag  C-BAG* 


17,40 

GET 

MOBGSHPl 

17,50 

GET 

MABAGl 

PICTURE 

*999* 

17,57 

GET 

MBBAGI 

PICTUBE 

*999* 

17,64 

GET 

MUBAGl 

PICTUBE 

*999* 

17,71 

GET 

MCBAGl 

PICTURE 

*999* 

18,40 

GET 

M0RGSHP2 

18,50 

GET 

MABAG2 

PICTURE 

*999* 

18,57 

GET 

MBBAG2 

PICTURE 

*999* 

18,64 

GET 

MUBAGl 

PICTURE 

*999* 

18,71 

GET 

MCBAGl 

PICTURE 

*999* 

10,40 

GET 

M0BGSHP3 

10,50 

GET 

MABAG3 

PICTURE 

*090* 

19,57 

GET 

MBBAG3 

PICTURE 

*909* 

10,64 

GET 

MUBAG3 

PICTURE 

*990* 

180 


19,71 

GET 

1ICBAG3 

PICTURE 

‘999' 

20,40 

GET 

1I0RGSHP4 

20,50 

GET 

liABAG4 

PICTURE 

'999' 

20,57 

GET 

IIBBAG4 

PICTURE 

'999' 

20,04 

GET 

IIDBAG4 

PICTURE 

'999' 

20,71 

GET 

IICBAG4 

PICTURE 

'999' 

21,40 

GET 

MOBGSHPO 

21,50 

GET 

IIABAG5 

PICTURE 

‘999‘ 

21,57 

GET 

liBBAG5 

PICTURE 

'999' 

21,04 

GET 

1IDBA04 

PICTURE 

'999' 

21,71 

GET 

IICBAG4 

PICTURE 

'999' 

22,40 

GET 

MOBGSHPO 

22,50 

GET 

MABAGO 

PICTURE 

'999' 

22,57 

GET 

MBBAGO 

PICTURE 

'999' 

22,04 

GET 

MUBAGO 

PICTURE 

'999' 

22,71 

GET 

MCBAGO 

PICTURE 

‘999‘ 

23,40 

GET 

•1I0RGSHP7 

23,50 

GET 

IIABAG7 

PICTURE 

'999' 

23,57 

GET 

MBBAG7 

PICTURE 

‘999‘ 

23,04 

GET 

II0BAG7 

PICTURE 

'999' 

23,71 

GET 

ICBAG7 

PICTURE 

'999' 

BEAD 


»  Check  For  Correct  Entry 
COHHECT«*  • 

DO  WHILE  .EOT.  CORBECTF’TyMn* 

•  24,15  SAT  *Ii  Thi«  Correct?  (Y/H) *  GET  CORRECT 
READ 

•  24,15 
EIDOO 

IF  UPPER (CORRECT) »*»• 

GOOI«’  • 

DO  WHILE  .HOT.  GOOHi'TyHn’ 

•  24,15  SAT  ‘Would  You  Like  To  Continue?  (T/H) '  GET  GOON 
READ 

•  24,15 
EHDDO 

IF  UPPER (GOOH)*‘H‘ 

•24,15  SAT  ‘Returning  to  Configuration  Data/Resune  File  Main  Menu' 
CLEAR 
RETURN 
BHDIF 

EHDDO 

ENDIF 

APPEND  BLANK 

REPLACE  ABAGl  WITH  TO  MABAGl 
REPLACE  ABAG2  WITH  l(ABAG2 
REPLACE  ABA03  WITH  IIABA03 
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RIFLACE  ABAGA  WITH  IIABAG4 
REPLACE  ABAGS  WITH  MABAGS 
REPLACE  ABAGB  WITH  IIABAG6 
REPLACE  ABAG7  WITH  IIABAGT 
REPLACE  TAl  WITH  WTAl 
REPLACE  TAR  WITH  MTAR 
REPLACE  TA3  WITH  MTAS 
REPLACE  TA4  WITH  MTAA 
REPLACE  TAS  WITH  MTAS 
REPLACE  TAB  WITH  MTAS 
REPLACE  TA7  WITH  MrA7 
REPLACE  BBAGl  WITH  MBBAGl 
REPLACE  BBAG2  WITH  MBBAG2 
REPLACE  BBAG3  WITH  MBBAG3 
REPLACE  BBAGA  WITH  MBBA04 
REPLACE  BBAG8  WITH  MBBAG5 
REPLACE  BBAGS  WITH  MBBAGS 
REPLACE  BBAG7  WITH  MBBAG7 
REPLACE  BLOGl  WITH  IDLDGl 
REPLACE  BLOG2  WITH  MBLDG2 
REPLACE  BL1>G3  WITH  MBLDG3 
REPLACE  BLDG4  WITH  MBLDG4 
REPLACE  BLOGS  WITH  MBLOG8 
REPLACE  BLOGS  WITH  MBLOGS 
REPLACE  BLOG7  WITH  MBL0G7 
REPLACE  BLOGS  WITH  MBLOGS 
REPLACE  CBAGl  WITH  MCBAGl 
REPLACE  CBAG2  WITH  MCBAGR 
REPLACE  CBAG3  WITH  MCBAG3 
REPLACE  CBAG4  WITH  MCBAG4 
REPLACE  CBAGS  WITH  MCBAGS 
REPLACE  CBAGS  WITH  MCBAGS 
REPLACE  CBAG7  WITH  MCBAG7 
REPLACE  ADTH.EHL  WITH  MAUTH  ENL 
REPLACE  OFFICE  WITH  MOFFICE 
REPLACE  AUTH  OFF  WITH  MAUTH  OFF 
REPLACE  ORGSHPl  WITH  MORGSHPl 
REPLACE  OROSHP2  WITH  MOBOSHP2 
REPLACE  0R0SHP3  WITH  MOROSHP3 
REPLACE  OROSHP4  WITH  M0RGSHP4 
REPLACE  ORGSHPS  WITH  MORGSHPS 
REPLACE  ORGSHPS  WITH  MORGSHPS 
REPLACE  0RGSHP7  WITH  M0RGSHP7 
REPLACE  GRAOE  WITH  MGRAOE 
REPLACE  SQF  WITH  MSQF 
REPLACE  OBAGl  WITH  MUBAGl 
REPLACE  UBAG2  WITH  MUBAG2 
REPLACE  DBAG3  WITH  MUBAGS 
REPLACE  UBAG4  WITH  MDBAG4 
REPLACE  UBAG8  WITH  MOBAGS 
REPLACE  UBAGS  WITH  MUBAGS 
REPLACE  UBAG7  WITH  MUBAG7 

•  Check  For  Another  Input 
AHOTHER«’  ’ 


DO  «HILE  .WOT.  AHOTBEBt'TyHn* 

•34. IS  SAT  'Input  Another  Record?  (T/N) *  QET  ANOTHER 
READ 
•  24,13 
EIDDO 

IF  UPPER  (ANOTHER) «‘T' 

CLEAR 

EXIT 

EHDIF 

IF  OPPEB  (ANOTHER) **N‘ 

•24,15  SAT  'Returning  to  Configuration  Data/Resume  File  Main  Menu' 
CLEAR 
RETURN 
ENDIF 

CLEAR 

ENDDO 

ENDDO 

«  EOF;  BESADD.PRG 


•  Program.:  RESEDT.PRQ 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Revision:  30  August  1988 

•  Notes...:  Edit  records  in  the  Configuration  Data/Resume  File 

•  Called  from  RES. PRO 

USE  RES 

DO  NORECORD 

DO  iraiLE  .T. 

•  Initialize  MeBK>ry  Variables 

STORE  000  TO  MABAOl 

STORE  000  TO  MABA02 

STORE  000  TO  MABA03 

STORE  000  TO  MABA04 

STORE  000  TO  MABAGS 

STORE  000  TO  MABAGO 

STORE  000  TO  MABAG7 

STORE  000  TO  MTAl 

STORE  000  TO  MrA2 

STORE  000  TO  MTAS 

STORE  000  TQ  MTAA 

STORE  000  TO  MTAS 

STORE  000  TO  irTAO 

STORE  000  TO  MTAT 
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i 


STORE 

STOBB 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


000  TO  MBBAOl 
000  TO  1IBBA02 
000  TO  MBBAGS 
000  TO  MBBAGA 
000  TO  IDBAGS 
000  TO  IIBBAG6 
000  TO  IBBA07 
0000  TO  MBLDGl 
0000  TO  IIBL0G2 
0000  TO  IIBLDG3 
0000  TO  MBLIHH 
0000  TO  MBLDGS 
0000  TO  MBLOGO 
0000  TO  IIBLDG7 
0000  TO  MBLDGB 
000  TO  MCBAGl 
000  TO  1ICBAG2 
000  TO  IICBAG3 
000  TO  ICBA04 
000  TO  MCBAGS 
000  TO  MCBAG0 
000  TO  MCBAG7 
000  TO  MAUTR  ERL 
SPACE  (12)  TO  IIOFPICE 
000  TO  MAOTH.OFF 
SPACE (S)  TO  iiOROSHPl 
TO  M0RGSRP2 
TO  II0RGSBP3 
TO  IIOROSHP4 
TO  MORGSHPS 
TO  MORGSRPO 
TO  IIOROSHP7 
MGRAOE 


TO 


SPACE (S) 

SPACE (9) 
SPACE(5) 

SPACE (9) 
SPACE(9) 

SPACE (9) 
SPACE(2) 

000000  TO  MSQF 
000  TO  MOBAGl 
000  TO  1RIBAG2 
000  TO  MUBAOS 
000  TO  IfUBAGA 
000  TO  1IUBAG9 
000  TO  MUBAQO 
000  TO  1IDBAG7 


•  Draw  Input  Scr««n 
CLEAR 

00  WILE  .T. 

TODAT>DATE() 

CLEAR 

•  1.0  TO  3,73 

.  •2,11SAT*C0RFIG(JRATI0R  DATA  EDIT 

•  2.90  SAT  '  B  0  U  T  I  R  E' 

•  0,0  TO  20,77  DOUBLE 

•  7,48  SAT  'Office  Symbol:  ' 

•  8,10  SAT  'Senior  Grade:  ' 

•  8,24  SAT  'Officers:  ' 

•  8,43  SAT  'Enlisted:  * 
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•  0,20  SAT  'Authorized  TA’z;  ' 

•  11,42  SAT  'Buildings:  ' 

•  14,42  SAT  'Square  Feet:  ' 

•  IS, 42  SAT  'Mobility  Taskings' 

f  16,30  SAT  'Org/Shop  A-Bag  B-Bag  0-Bag  C-BAG' 

BEAD 

•  Input  Office  Syabol 

•  24,18  SAT  'Enter  Office  Syabol'  GET  MOFFICE  PICTUBE  'XXZmxm 

BEAD 

•  Search  For  Bequested  Office  Syabol 
LOCATE  FOB  'OFFICE'  «  'MOFFICE' 

IF  .MOT.  FOUIDO 

•  Office  Symbol  Is  Hot  In  The  File 

•  24,18 

•  24,18  SAT  'Office  Symbol  ‘  GET  MOFFICE  PICTUBE  'XmXXmm' 

•  24,42  SAT  'cannot  be  found.' 

CLEAB  GETS 

GOOH  ■  *  * 

00  MHILE  .HOT.  GOOHA'TyHn* 

•  23,18  SAT  'Mould  Tou  Like  To  Continue?  (T/H) '  GET  GOOH 
BEAD 
EHDDO 

IF  0PPEB(G00H)»'H' 

•23,18  SAT  'Configuration  Oata/Besuae  File  Main  Menu' 

CLEAB 

BETUBH 

EHDIF 

CLEAB 

LOOP 

EHDIF 

•  If  Becord  Is  Located,  Display  Data 
CLEAB 

DO  MHILE  .T. 

TODAT>DATE() 

CLEAB 

•  1,0  TO  3,73 

•2,11  SAT  'COHFIGUBATIOH  DATA  EDIT 

•  2,80  SAT  'B  0  0  T  I  H  E' 

•  6.0  TO  20,77  DOUBLE 

•  7,48  SAT  'Office  Syabol:  *  GET  MOFFICE  PICTUBE  'XXmXXXXm' 

•  8,10  SAT  'Senior  Grade:  '  GET  GBADE  PICTUBE  'OA' 

•  8,24  SAT  'Officers:  '  GET  AUTH  OFF  PICTUBE  '909' 

•  8,43  SAT  'Enlisted:  '  GET  AUT.EHL  PICTUBE  '999' 

•  9,20  SAT  'Authorized  TA’s:  '  GET  TAl  PICTUBE  *999' 

•  0,42  GET  TA2  PICTUBE  '909' 

•  0,46  GET  TA3  PICTUBE  '999' 
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I 


9.50 

^ET 

TA4  PICTURE  *999* 

9  54 

GET 

TA5  PICTURE  *999* 

0,58 

GET 

TA6  PICTURE  *999* 

9,66 

GET 

TA7  PICTURE  *999* 

11,42 

SAT 

*Bulldln8<:  ' 

GET  BLDGl  PICTURE 

11,50 

GET 

BLDG2  PICTURE 

*9999* 

11,63 

GET 

BLOGS  PICTURE 

*9999* 

11,67 

GET 

BLDG4  PICTURE 

*9999* 

12,55 

(»T 

BLDGS  PICTURE 

‘9999* 

12,59 

GET 

BL0G6  PICTURE 

*0999* 

12,63 

GET 

BLDG7  PICTURE 

*9099* 

12,67 

GET 

BLDGS  PICTURE 

*0909* 

14,42 

SAT 

'Square  Feet: 

•  GET  SQF  PICTURE 

15,42 

SAT 

'Mobility  Taekinia* 

16,30 

SAT 

'Or|/Shop  A-BaA  B-Bag  U-Bag 

17,40 

GET 

ORGSHPl 

17,50 

GET 

ABAGl  PICTURE 

*999* 

17,57 

GET 

BBAGl  PICTURE 

*999* 

17,64 

GET 

UBAGl  PICTURE 

*999* 

17,71 

GET 

CBAGl  PICTURE 

*999* 

18,40 

GET 

0RGSHP2 

18,50 

GET 

ABAG2  PICTURE 

*999* 

18,57 

GET 

BBAG2  PICTURE 

*999* 

18,64 

GET 

UBAGl  PICTURE 

*999* 

18,71 

GET 

CBAGl  PICTURE 

*099* 

19,40 

GET 

ORGSHP3 

19,50 

GET 

ABAG3  PICTURE 

*999* 

19,57 

GET 

BBAG3  PICTURE 

*999* 

19,64 

GET 

UBAG3  PICTURE 

•999* 

19,71 

GET 

CBAG3  PICTURE 

*909* 

20,40 

GET 

ORGSHP4 

20,50 

GET 

ABAG4  PICTURE 

*909* 

20,57 

GET 

BBAG4  PICTURE 

*999* 

20,64 

GET 

UBAG4  PICTURE 

*999* 

20,71 

GET 

CBAG4  PICTURE 

*999* 

21,40 

GET 

0RGSHP5 

21,50 

GET 

ABAG5  PICTURE 

*999* 

21,57 

GET 

BBAG5  PICTURE 

*999* 

21,64 

GET 

UBAG4  PICTURE 

*999* 

21,71 

GET 

CBAG4  PICTURE 

*999* 

22,40 

GET 

0RGSHP6 

22,50 

GET 

ABAG6  PICTURE 

*990* 

22,57 

GET 

BBAG6  PICTURE 

*999* 

22,64 

GET 

UBAG6  PICTURE 

*999* 

22,71 

GET 

CBAG6  PICTURE 

*999* 

23,40 

GET 

ORGSHP7 

23,50 

GET 

ABAG7  PICTURE 

*999* 

23,57 

GET 

BBAG7  PICTURE 

*999* 

23,64 

GET 

UBAG7  PICTURE 

*999* 

23,71 

GET 

CBAG7  PICTURE 

*999* 

CLEAR  QETS 

*9998*  I 

i 

*999999* 

C-BAQ* 

I 

« 

I 

i 

J 

1 


CORRECT  »  *  * 

DO  miLE  .EOT.  CORRECT* *Tyirn’ 
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f  24,15 

•  24,15  SAY  ’Is  this  the  correct  record?  (Y/M) '  GET  CORRECT 
HEAD 

ENDDO 

IF  UPPEH(CORRECT)=*H' 

•  24,15 
0001  »  •  • 

DO  WHILE  .HOT.  OOOMA'YyHn* 

•  24,15  SAT  'Would  You  Like  To  Continue?  (Y/H) *  GET  GOON 
READ 

•  24,15 
EHDDO 

IF  OFFER (GOON) «*H* 

•22,15  SAY  ‘Configuration  Data/Resume  File  Main  Menu' 
CLEAR 
RETURN 
ENDIF 


LOOP 

ENDIF 

TODAY>DATE() 

CLEAR 


1,9  TO  3,73 
2,11  SAY  'C 
2,59  SAY  *R 


U  R 
E* 


ATIOM  DATA  EDIT 


6,0  TO  20,77  DOUBLE 
7,48  SAY  'Office  Symbol: 
8,10  SAY  'Senior  Grade: 
8,24  SAY  'Officers: 

8,43  SAY  'Enlisted; 

9,20  SAY  'Authorized  TA’s: 
9,42  GET  TA2  PICTURE  '999' 
9,46  GET  TA3  PICTURE  '999' 
9,50  GET  TA4  PICTURE  '999* 
9,54  GET  TA5  PICTURE 
9,58  GET  TA6  PICTURE 
9,66  GET  TA7  PICTURE 


GET  MOFFICE  PICTURE  'XXXXXXXXXXXX' 
GET  GRADE  PICTURE  '9A' 

GET  AOTH.OFF  PICTURE  '999' 

GET  AOT_EllL  PICTURE  '999' 

GET  TAl  PICTURE  '999' 


•  11,42  SAY  'Buildings: 


■999' 

■999' 

■  GET  BLDGl  PICTURE  '9999' 


•  11,59  GET  BL0G2  PICTURE  '9999' 

•  11,63  GET  BL0G3  PICTURE  '9999' 

•  11,67  GET  BLDG4  PICTURE  '9999' 

•  12,55  GET  BLDG5  PICTURE  '9999' 

•  12,59  GET  BLDG6  PICTURE  '9999' 

•  12,63  GET  BLDG7  PICTURE  '9999' 

•  12,67  GET  BLDGS  PICTURE  *9999' 

•  14,42  SAY  'Square  Feet: 

•  15,42  SAY  'Mobility  Taskings' 

•  16,30  SAY  'Org/Shop  A-Bag  B-Bag 

•  17,40  GET  ORGSHPl 

•  17,50  GET  ABAGl  PICTURE  *999' 

•  17,57  GET  BBAGl  PICTURE  *999' 

•  17,64  GET  UBAGl  PICTURE  '999* 


GET  SQF  PICTURE  '999999' 


U-Bag  C-BAG' 
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17,71 

GET 

CBAGl 

PICTURE  '999' 

18,40 

GET 

08GSHP2 

18,50 

GET 

ABAG2 

PICTURE  'UUU' 

18,57 

GET 

BBAG2 

PICTURE  '999* 

18,64 

GET 

UBAGl 

PICTURE  '999* 

18,71 

GET 

CBAGl 

PICTURE  *999* 

19,40 

GET 

ORGSHP3 

19,50 

GET 

ABAG3 

PICTURE  '999* 

19,57 

GET 

BBAG3 

PICTURE  '999' 

19,64 

GET 

UBAG3 

PICTURE  '999* 

19,71 

GET 

CBAG3 

PICTURE  *999* 

20,40 

GET 

ORGSHP4 

20,50 

GET 

ABAG4 

PICTURE  *999' 

20,57 

GET 

BBAG4 

PICTURE  '999* 

20,64 

GET 

UBAG4 

PICTURE  '999* 

20,71 

GET 

CBAG4 

PICTURE  *999* 

21,40 

GET 

0RGSHP5 

21,50 

GET 

ABAG5 

PICTURE  '999' 

21,57 

GET 

BBAG5 

PICTURE  *999' 

21,64 

GET 

UBAG4 

PICTURE  '999* 

21,71 

GET 

CBAG4 

PICTURE  '999* 

22,40 

GET 

0RGSHP6 

22,50 

GET 

ABAG6 

PICTURE  *999* 

22,57 

GET 

BBAG6 

PICTURE  *999* 

22.64 

GET 

UBAG6 

PICTURE  *999* 

22,71 

GET 

CBAG6 

PICTURE  '999* 

23,40 

GET 

ORGSHP7 

23,50 

GET 

ABAG7 

PICTURE  *999* 

23,57 

GET 

BBAG7 

PICTURE  *999* 

23,64 

GET 

UBAG7 

PICTURE  *999* 

23,71 

GET 

CBAG7 

PICTURE  *999* 

•24,15  SAT  ‘Qo  ahead  and  make  the  necessary  changes.' 

READ 

•24,15 


»  Check  For  Correct  Entry 
CORRECT  »  •  • 

DO  WHILE  .NOT.  CORRECT* ' TyNn ' 

•  24,15  SAT  'Is  This  Correct?  (T/H) *  GET  CORRECT 
READ 

•  24,15 
ENDDO 

IF  UPPER (CORRECT) »'H' 

GOON  «  •  • 

DO  WHILE  .NOT.  GOONH'TyNn* 

•  24,15  SAY  'Would  You  Like  To  Continue?  (Y/N) '  GET  GOON 
READ 

•  24,15 
ENDDO 

IF  OPPER(GOON)*'H' 

•24,15  SAY  'Returning  to  Configuration  Data/Resume  File  Main  Menu' 
CLEAR 
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BETURV 

ENDIF 

ENDDO 

EVDIF 

MABAGl  -  ABAGl 
MABAQS  *  ABAa2 
liABA03  »  ABACS 
MABAQA  *  ABAGA 
MABAGS  >  ABACS 
MABACe  >  ABACS 
1IABAG7  -  ABAG7 
MTAl  »  TAl 
IITA2  -  TA2 
MTAS  «  TA3 
MTAA  -  TA4 
MTAS  -  TAS 
MTAS  «  TAS 
1ITA7  »  TA7 
MBBAGl  >  BBAGl 
1IBBAG2  >  BBAG2 
MBBAG3  »  BBAG3 
1IBBAG4  »  BBAG4 
MBBAGS  >  BBAGS 
MBBAGS  >  BBAGS 
IIBBAS7  >  BBAG7 
MBLDGl  >  BLOQl 
lfflL0G2  «  BLOG2 
MBLDGS  »  BLOQ3 
IIBLDG4  «  BLDG4 
MBLDGS  »  BLDGS 
MBLDGS  «  BLDGS 
MBLDG7  »  BLDG7 
MBLDGS  >  BLDGS 
MCBAGl  -  CBAGl 
MCBAG2  *  CBAG2 
MCBAG3  »  CBAQ3 
MCBAG4  «  CBAG4 
MCBAGS  «  CBAG5 
MCBAGS  >  CBAGS 
MCBAG7  s  CBAG7 
MADTH.EML  >  AUTH.EML 
MOFFICE  *  OFFICE 
MADTH.OFF  »  AOTH.OFF 
MOBGSiPl  «  OBGSHPl 
M0BGSHP2  «  OBGSHP2 
M0BGSHP3  »  OBGSHP3 
M0BGSHP4  a  OBGSHP4 
MOBGSHPS  >  OBGSHPS 
MOBGSHPS  >  OBGSHPS 
M0BGSHP7  >  0BGSHP7 
MQBADE  >  GBADE 
MSQF  >  SQF 
MDBAGl  «  IJBAGl 
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MOBAGa  s  UBAa2 
MOBAGS  «  OBAGS 
IIDBAGA  >  I7BA04 
MOBAGS  «  OBAGS 
MOBAGS  «  OBAGS 
M0BAG7  >  0BAG7 

BEPLACB  ABAGl  WITH  MABAGl 
REPLACE  ABAG2  WITH  MABA02 
REPLACE  ABAG3  WITH  MABAG3 
REPLACE  ABAG4  WITH  MABAG4 
REPLACE  ABAG5  WITH  MABAGS 
REPLACE  ABAGS  WITH  MABAGS 
REPLACE  ABAG7  WITH  MABAG7 
REPLACE  TAl  WITH  MTAl 
REPLACE  TA2  WITH  MTA2 
REPLACE  TA3  WITH  MTAS 
REPLACE  TA4  WITH  MrA4 
REPLACE  TAS  WITH  MTAS 
REPLACE  TAS  WITH  MTAS 
REPLACE  TA7  WITH  MTA7 
REPLACE  BBAGl  WITH  MBBAGl 
REPLACE  BBAG2  WITH  MBBAG2 
REPLACE  BBAG3  WITH  MBBAG3 
REPLACE  BBAG4  WITH  MBBAG4 
REPLACE  BBAG5  WITH  MBBAGS 
REPLACE  BBAGS  WITH  MBBAGS 
REPLACE  BBAG7  WITH  MBBAG7 
REPLACE  BLDGl  WITH  MBLOGl 
REPLACE  BLI>G2  WITH  MBLDG2 
REPLACE  BLDG3  WITH  MBLDG3 
REPLACE  BLDG4  WITH  MBLDG4 
REPLACE  BLOGS  WITH  MBLDG5 
REPLACE  BLDGS  WITH  MBLDGS 
REPLACE  BLDG7  WITH  MBLDG7 
REPLACE  BLDGS  WITH  MBLDGS 
REPLACE  CBAGl  WITH  MCBAGl 
REPLACE  CBAG2  WITH  MCBAG2 
REPLACE  CBAG3  WITH  MCBAG3 
REPLACE  CBAG4  WITH  MCBAG4 
REPLACE  CBAGS  WITH  MCBAGS 
REPLACE  CBAGS  WITH  MCBAGS 
REPLACE  CBAG7  WITH  MCBAG7 
REPLACE  AOTH  EEL  WITH  MAOTH  EHL 
REPLACE  OFFICE  WITH  MOFFICE 
REPLACE  AOTH.OFF  WITH  MAOTH  OFF 
REPLACE  ORGSiPl  WITH  MOBGSHPl 
REPLACE  0R0SHP2  WITH  M0BGSHP2 
REPLACE  ORGSHP3  WITH  MORGSHPS 
REPLACE  ORGSHP4  WITH  M0BGSHP4 
REPLACE  ORGSHPS  WITH  MORGSHPS 
REPLACE  ORGSHPS  WITH  MORGSHPS 
REPLACE  0RGSHP7  WITH  M0RGSHP7 
REPLACE  GRADE  WITH  MQRADE 
REPLACE  SQF  WITH  MSQF 
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BEPLACE  UBAGl  WITH  MDBAGl 
BEPUCE  IJBAG2  WITH  1IDBAG2 
BEPLACE  UBAG3  WTH  II0BAG3 
BEPLACE  UBAG4  IflTH  IIDBAG4 
BEPLACE  0BAG5  WITH  IIDBA05 
BEPLACE  DBAG6  WITH  1I0BAG6 
BEPLACE  DBAG7  WITH  1IDBAG7 


»  Cb*ck  For  Anotbor  Edit 
AHOTHEB  «  ‘ 

HO  WHILE  .HOT.  AMOTHEBt ‘ TyHn ‘ 

•24,15  SAT  *Upd«t«  Anotbor  B«eord7  (T/H) ’  GET  AHOTHEB 
BEAD 
•  24,15 
EHDDO 

IF  UPPEB  (AHOTHEB) >'H‘ 

•24,15  SAT  'Boturning  to  Configuration  Data/BastuM  File  Main  Menu* 
CLEAB 
BETUBH 
EHDIF 

EHDDO 

EHDDO 

»  EOF:  BESEDT.PBG 


•  Prograa. :  BESDEL.PBG 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Bevision:  30  August  1988 

•  Hotes...:  Delete  records  from  the  Configuration  Data/Besume  File 

•  Called  froa  BES.PBG 

USE  BES 


DO  HOBECOBD 

DO  WHILE 

.T. 

«  Initialize 

Meaory  Variables 

STOBE 

000 

TO 

MABAGl 

STOBE 

000 

TO 

MABA02 

STOBE 

000 

TO 

MABA03 

STOBE 

000 

TO 

MABA04 

STOBE 

000 

TO 

MABAG8 

STOBE 

000 

TO 

MABAG8 

STOBE 

000 

TO 

MABA07 

STOBE 

000 

TO 

MTAl 

STOBE 

000 

TO 

MTAS 

STOBE 

000 

TO 

MTA3 

STOBE 

000 

TO 

irrA4 

STOBE 

000 

TO 

MTAS 

STOBE 

000 

TO 

MTAO 
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STOBB  000  TO  IITA7 
STOBE  000  TO  MBBAOl 
STOBB  000  TO  MBBAQS 
STOBB  000  TO  MBBA03 
STOBB  000  TO  IBBA04 
STOBB  000  TO  1IBBA05 
STOBB  000  TO  MBBAOO 
STOBB  000  TO  IIBBA07 
STOBB  0000.  TO  MBLDOl 
STOBB  0000  TO  IBLOOO 
STOBB  0000  TO  IBLOGS 
STOBB  0000  TO  IDLOOA 
STOBB  0000  TO  MBLDOS 
STOBB  0000  TO  MBLDOO 
STOBB  0000  TO  IBLOOT 
STOBB  0000  TO  MBLDOS 
STOBB  000  TO  MCBAOl 
STOBB  000  TO  MCBAOa 
STOBB  000  TO  MCBAOS 
STOBB  000  TO  MCBAOA 
STOBB  000  TO  MCBAOS 
STOBE  000  TO  MCBAOS 
STOBB  000  TO  MCBA07 
STOBB  000  TO  MAOTH  EHL 
STOBE  SPACBdS)  TO  MOFFICE 
STOBB  000  TO  MAOTH  OFF 
STOBB  SPACE (S)  TO  HOBOSHPl 
STOBB  SPACE (8)  TO  MOBOSHP2 
STOBB  SPACE (5)  TO  MOBOSHPS 
STOBE  SPACE (8)  TO  MOBOSHP4 
STOBE  SPACE (8)  TO  MOBOSEPS 
STOBE  SPACE (8)  TO  MOBOSHPS 
STOBE  SPACB(S)  TO  MOBOSHPT 
STOBE  SPACE (2)  TO  MSRAOE 
STOBE  000000  TO  MSQF 
STOBB  000  TO  MOB AO 1 
STOBE  000  TO  MDBA02 
STORE  000  TO  MDBA03 
STORE  000  TO  MDBA04 
STOBB  000  TO  MDBAOS 
STOBB  000  TO  MDBAOS 
STOBB  000  TO  MDBA07 


»  Draw  Input  Scr««n 
CLBAB 

DO  WHILE  .T. 

TODAT*DATE() 

CLEAR 

•  1,7  TO  3,74 

•2,9SAT*COHFIOOBATION  DATA  DELETE 

•  2,61  SAT  ’B  0  0  T  I  H  E’ 
f  6,0  TO  20,77  DOUBLE 

•  7,48  SAT  'Offic*  Symbol:  * 

•  8,10  SAT  'Senior  Or«d«; 

•  8,24  SAT  'Officers:  ' 
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i; 


•  8.43  SAT  ‘Enlisted:  * 

•  S.20  SAT  ‘Authoplzed  TA’s:  ‘ 

•  11,42  SAT  ‘Buildings:  ‘ 

•  14,42  SAT  ‘Square  Feet:  ‘ 

•  15,42  SAT  ‘Mobility  Taskings‘ 

•  18,30  SAT  ‘Org/Shop  A-Beg  B-Beg  tJ-Bag  C-BA0‘ 

BEAD 

»  Input  Office  Syabol 

•  24,15  SAT  ‘Enter  Office  Symbor  QET  MOFFICE  PICTUBE  ‘XXXXXXXXXm* 
BEAD 

•  Search  For  Bequested  Office  Symbol 
LOCATE  FOB  ‘0FFICE‘  *  ‘1I0FFICE‘ 

IF  .EOT.  FOOVDO 

•  Office  Symbol  Is  lot  In  The  File 

•  24,15 

f  24,15  SAT  ‘Office  Symbol  ‘  OET  MOFFICE  PICTUBE  ‘mXXXXmXX‘ 

•  24,42  SAT  ‘cannot  be  found. ‘ 

CLEAB  GETS 


I. 


aooM  «  ‘ 

DO  WHILE  .EOT.  aOOEi‘TyEn‘ 

•  23,15  SAT  ‘Mould  Tou  Like  To  Continue?  (T/E) ‘  QET  GOOE 
BEAD 
EEDOO 


r 


IF  OPPBB(GOOE)»‘E‘ 

•23,15  SAT  ‘Configuration  Data/Besume  File  Main  Menu* 
CLEAB 
BETUBE 
EEDIF 

CLEAB 

LOOP 

EEDIF 

•  If  Becord  Is  Located.  Display  Data 


L 


CLEAB 

DO  WHILE  .T. 

TODAT-DATEO 

CLEAB 

•  1,7  TO  3,74 

•2,OSAT‘COHFiaUBATIOE  DATA  DELETE 

•  2,61  SAT  ‘B  0  U  T  I  E  E‘ 

•  6.0  TO  20,77  DOUBLE 

•  7,48  SAT  ‘Office  Symbol:  '  QET  MOFFICE  PICTUBE  ‘mmXXX: 

•  8,10  SAT  ‘Senior  Grade:  ‘  GET  GBADE  PICTUBE  ‘0A‘ 

•  8,24  SAT  ‘Officers:  ‘  GET  AUTH.OFF  PICTUBE  ‘999* 

•  8,43  SAT  ‘Enlisted:  ‘  OET  AUT  iwL  PICTUBE  ‘999‘ 

•  9,20  SAT  ‘Authorized  TA’s:  ‘  GET  TAl  PICTUBE  '999' 

•  9,42  GET  TA2  PICTUBE  ‘999' 
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L 


f  9.«0  GET  TA3  PICTURE  *999' 

•  9,50  GET  TA4  PICTURE  *999' 

•  9,54  GET  TA5  PICTURE  *999* 

•  9.58  GET  TA6  PICTURE  '999* 

•  9.00  GET  TA7  PICTURE  ‘999* 

•  11.42  SAT  ‘Buildings:  ‘  GET  BLDGl  PICTURE  '9999' 

•  11.59  GET  BLDG2  PICTURE  ‘9999* 

•  11.03  GET  BL0G3  PICTURE  *9999* 

•  11.07  GET  BLDG4  PICTURE  *9999* 

•  12,55  GET  BLDQ5  PICTURE  *9999* 

•  12.59  GET  BLDGO  PICTURE  *9999* 

•  12.03  GET  BL0G7  PICTURE  *9999* 

•  12.07  GET  BLDG8  PICTURE  *9999* 

•  14,42  SAT  ‘Square  Fact:  *  GET  SQF  PICTURE  *999999* 

•  15.42  SAT  ‘Mobility  TaakinRc* 

•  10.30  SAT  *Or|yShop  A-Ba|  B-BaR  U-Bag  C-BAG* 

•  17.40  GET  OBGSHPl 

•  17,50  GET  ABAGl  PICTURE  *909* 

•  17.57  GET  BBAGl  PICTURE  *999* 

•  17.04  GET  UBAGl  PICTURE  *999* 

•  17,71  GET  CBAGl  PICTURE  *999* 

•  18,40  GET  0BGSHP2 

•  18,50  GET  ABAG2  PICTURE  *999* 

•  18,57  GET  BBAG2  PICTURE  *999* 

•  18,04  GET  UBAGl  PICTURE  *999* 

•  18,71  GET  CBAGl  PICTURE  *999* 

•  19,40  GET  0RGSHP3 

f  19,50  GET  ABAG3  PICTURE  *999* 

<  19,57  GET  BBAG3  PICTURE  *999* 

•  19,04  GET  UBAG3  PICTURE  *999* 

8  19,71  GET  CBAG3  PICTURE  *999* 

•  20,40  GET  0RGSHP4 

•  20,50  GET  ABAG4  PICTURE  *999* 

•  20,57  GET  BBAG4  PICTURE  *999* 

•  20.04  GET  UBAG4  PICTURE  *999* 

•  20,71  GET  CBAG4  PICTURE  *999* 

•  21,40  GET  OBGSHP5 

•  21,50  GET  ABAG5  PICTURE  *999* 
f  21,57  GET  BBAG5  PICTURE  *999* 

•  21,04  GET  UBAG4  PICTURE  *999* 

•  21,71  GET  CBAG4  PICTURE  *999* 

•  22.40  GET  ORGSHPO 

•  22,50  GET  ABAGO  PICTURE  *999* 

•  22,57  GET  BBAGO  PICTURE  *999* 

9  22,04  GET  UBAGO  PICTURE  *999* 

•  22,71  GET  CBAGO  PICTURE  *999* 

•  23,40  GET  0RGSHP7 

•  23,50  GET  ABAG7  PICTURE  *999* 

•  23,57  GET  BBAG7  PICTURE  *999* 

•  23,04  GET  UBAG7  PICTURE  *999* 

•  23,71  GET  CBAG7  PICTURE  *999* 

CLEAR  GETS 
MCORRECT  *  * 
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DO  WILE  .HOT.  MCOBBECTf'TyHn* 

•  24.15  SAT  SPACE  (SO) 

•  24,15  SAT  'l8  this  the  record  you  want  to  delete?  (T/N)*,* 

OET  MCOHEECT 

BEAD 

EIDDO 

IF  UPPEB(MCOBBECT)>‘>‘ 

•  24,15  SAT  SPACE (50) 

MSOOE  *  ' 

DO  WHILE  .MOT.  MSOOM«‘TyMn‘ 

f  24,15  SAT  ‘Would  Tou  Like  To  Continue?  (T/M) ‘  GET  MGOON 
BEAD 

#  24,15  SAT  SPACE (50) 

EMDDO 

IF  UPPEB(IIQOOM)>*M* 

#24,15  SAT  ‘Beturning  to  Configuration  Data/Besugte  File  Main  Menu* 
CLEAB 
BETUBM 

EMDIF 

LOOP 

EMDIF 

MCOBBECT  *  * 

DO  WHILE  .MOT.  MCOBBECTf *TyMn‘ 

#24,15  SAT  ‘Are  you  sure  that  you  want  to  delete  this  record?  (T/M) 
GET  MCOBBECT 

•  24,15  SAT  SPACE (50) 

BEAD 

EMDDO 

IF  UPPEB(MCOBBECT)>‘N* 

#24,15  SAT  ‘This  record  will  not  be  deleted.’ 

MQOOM  >  ‘ 

DO  WHILE  .MOT.  MQOOM# ‘TyNn* 

#  24,15  SAT  ‘Would  Tou  Like  To  Continue?  (T/M) ‘  GET  MQOOM 
BEAD 

#  24,15  SAT  SPACE (50) 

EMDDO 

IF  (JPPEB(MSOOM)>‘M‘ 

#24,15  SAT  ‘Beturning  to  Configuration  Data/Besume  File  Main  Menu 
CLEAB 
BETUBM 
EMDIF 
EMDDO 
EMDIF 

DELETE  ALL  FOB  OFFICE  >  MOFFICE 
PACK 
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•  Check  for  another  delete 
MAVOTHEB  *  * 

DO  WHILE  .HOT.  MhlOTHEB* ' TyHn ' 

•24,19  SAT  SPACE (00) 

•24,15  SAT  ‘This  record  has  been  deleted.* 

DO  PAUSE 

•24,15  SAT  SPACE (00) 

•24,15  SAT  ‘Would  you  like  to  delete  another  record?  (T/H) ‘ ; 

OET  MAHOTHEB 
BEAD 

•  24,15  SAT  SPACE (00) 

EHDDO 

IF  UPPEB  (MAHOTHEB) >‘H‘ 

•24,15  SAT  ‘Beturning  to  Configuration  Data/Besufte  File  Main  Menu* 
CLEAB 
BETUBH 
BHDIF 

EHDDO 

EHDDO 

»  EOF:  BESDEL.PBG 


•  Prograa. :  BESBPT.PBQ 

»  Author..:  Capt  Jeff  Bailey 
»  Last  Bevision:  30  August  1088 

«  Hotes...:  Create  Beports  from  the  Configuration  Data/Besume  File 

*  Called  froa  BES.PBQ 

USE  BES 

DO  HOBECOBD 

DO  WHILE  .T. 

TODAT»DATE() 

CLEAB 

DO  WHILE  .T. 

TODAT«DATE() 

CLEAB 

•  1,0  TO  3,71 

•2,11SAT‘C0HFIGDBAT10H  DATA  BEPORTS 

•  2,05  SAT  ‘B  0  U  T  1  H  B* 

•  0.0  TO  20,77  DOUBLE 

•  5,25  SAT  ‘DATE  TIME* 

•  0,23  SAT  TODAT 

•  0,30  SAT  riMEO 

•  8,20  SAT  ‘[Al  All  Organizations* 

•  10,20  SAT  *[B]  Organization  By  Office  Symbol* 

•  12,20  SAT  *[C]  Organization  By  Table  of  Allowances* 

•  14,20  SAT  *(H]  Help  -  How  To  Use  The  Beports  System* 

•  10,20  SAT  *[Q)  Quit* 

•  23,8  SAT  ‘[Enter  Selection  (A  -  C,  H  for  help,  or  Q  to  quit)  :  :]* 
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I»0 

DO  MHILE  1*0 
I*IHKET() 

•  6.30  SAT  TIMEO 

•  23.60  SAT  '* 

IF  OPPEB(CHB(I))t‘ABCHQ* 
EXIT 
EIDIF 


1*0 

EEDOO 

•  23.60  SAT  OPPEB(CHB(I)) 


•  Input  Prlnt«p/Scr«*n  Bequest 
J  «  251 

DO  CASE 

CASE  CHB(I)  6  ‘Qq* 

SAVE  TO  BES.IBM 
CLEAB  ALL 
CLEAB 

CLOSE  DATABASES 
BETUBB 

CASE  CHB(I)  i  *A«* 

•  8.18  SAT  CHB(J) 

DO  PAUSE 
DO  BESBPTA 

CASE  CHB(I)  i  ‘Bb’ 

•10.18  SAT  CHB(J) 

DO  PAUSE 
DO  BESBPTB 

CASE  CHB(I)  «  *Ce' 

•12.18  SAT  CHB(J) 

DO  PAUSE 
DO  BESBPTC 

CASE  CHB(I)  •  'Hh' 

•14.18  SAT  CHB(J) 

DO  BESBPTB 

ENDCASE 

EHDDO 


»  EOF:  BESBPT.PBG 


»  Prograa. :  BBSBPTA.PBO 
«  Author..:  Copt  J«ff  Boiloy 
»  Loot  Bovigion:  30  Aufugt  1988 

•  lotgg...:  Croat*  a  roport  containing  all  records  in  the  Configuration 

•  Oata/BosuM  File 

•  Called  froa  BESBPT.PBG 

USB  BBS 

PBIBTBB  «  * 

DO  NBILB  .T. 

CLBAB 

TBIT 

This  report  will  provide  a  list  of  all  of  the  records  in  the 
Configuration  Data/Besuae  File. 

BHDTBXT 

DO  NBILB  .lOT.  PBIITEBg*PpSsQq' 

•22,18  SAT  'Send  Output  To  Winter  or  Screen  (P/S,  or  Q  to  quit)?'; 
QET  PBIBTBB 
BEAD 
BIDDO 

CLBAB 

IF  UPPBB(PBIITEB)«'Q* 

SATE  TO  BBS. IBM 
CLBAB  ALL 
CLBAB 

CLOSE  DATABASES 
BETUBB 
BBDIF 

IF  UPPEB(PBIBTBB)«'S' 

TEXT 


Most  reports  are  longer  than  on*  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

fCOBTBOL  S> 


To  STABT  the  report  scrolling  again  type 

<BBTUBB> 
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EIDTEXT 


WAIT 

CLEAR 

REPORT  FORM  RESRPTA.PRM  TO  SCREE! 

WAIT 

EMDIF 

IF  U?PER(PRIHTER)>'P‘ 

CLEAR 

WAIT  'Ready  printer  and  preae  (RETUR!)' 
REPORT  FORM  OOORPTA.FRM  TO  PRIIT 
ERDIF 

CLEAR 

RETUR! 

EMDOO 

«  EOF:  RESRPTA.PRO 


•  Progras.:  RESRPTB.PRO 

•  Author..:  Capt  Jeff  Bailey 

•  Laet  Revlelon:  30  August  1088 

•  Motes...:  Create  a  report  of  an  organization  in  the  Configuration 

•  Data/Resuae  File  by  Office  Syabol 

»  Called  froa  RESRPT.PRG 

USE  RES 

PRIMTER  -  •  ■ 

DO  WHILE  .T. 

CLEAR 

TEIT 


This  report  will  provide  configuration  data  on  a  single 
organization  specified  by  the  user. 

EHDTEXT 

•  Initialize  Mamory  Variable 
STORE  SPACEdS)  TO  MOFFICE 
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•  Input  Office  Syiri>ol 

•  20,15  SAT  'Enter  Office  Syntbol  of  the  organization 
GET  MOFFICE  PICTORE  'EXEXXXXXXm' 

BEAD 

SET  FILTER  TO  OFFICE  »  MOFFICE 

GO  TOP 

CLEAR 

DO  MHILE  .ROT.  PRIHTERA'PpSeQq* 

•22,15  SAT  ‘Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit) 7* 
GET  PRIITEB 
READ 
EIDDO 

CLEAR 

IF  DPPER(PRIHTER)>*Q‘ 

SATE  TO  RES. MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURN 
ENDIF 

IF  UPPBR( PRINTER)* ‘S' 

CLEAR 

REPORT  FORM  RESRPTB.FRM  TO  SCREEN 
WAIT 
ENDIF 

IF  UPPER(PRINTER)«‘P‘ 

CLEAR 

WAIT  ‘Ready  printer  and  press  <RETURN>‘ 

REPORT  FORM  RESRPTB.FRM  TO  PRINT 
ENDIF 

CLEAR 

RETURN 

ENDDO 

•  EOF:  RESRPTB.PRG 


»  Program.:  RESRPTC.PBG 
s  Author..:  Capt  Jeff  Bailey 

•  Last  Revision:  30  August  1988 

•  Notes...:  Create  a  report  of  organizations  in  the  Configuration 

•  Data/ResuBM  File  by  authorized  use  of  a  user  specified 

•  Table  of  Allowances 

•  Called  from  RESRPT.PRG 
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USE  RES 


PRIMTER  »  ■ 

DO  WHILE  .T. 
CLEAR 

TEXT 


This  report  will  provide  configuration  data  on  all  organizations 
authorized  to  xise  a  Table  of  Allowances  specified  by  the  user. 

EVDTEXT 


*  Initialize  Memory  Variable 
STORE  000  TO  MTA 


•  Input  Table  of  Allowances 

•  20,15  SAT  ‘Enter  Table  of  Allowances  ‘  GET  MTA  PICTURE  ‘999’ 

READ 

SET  FILTER  TO  TAl  »  MTA  .OR.  TA2  =  MTA  .OR.  TA3  =  IfTA  .OR.  TA4  =  MTA; 
.OR.  TAS  »  MTA  .OR.  TA8  »  MTA  .OR.  TA7  >  MTA 

00  TOP 

CLEAR 

DO  WHILE  .HOT.  PRIHTERt’PpSsQq’ 

•22,15  SAY  ‘Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)?‘; 
OET  PRIMTER 
READ 
EMDDO 

CLEAR 

IF  OPPER(PRIHTER)=‘Q‘ 

SAVE  TO  RES. MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURN 
ENDIF 

IF  UPPER (PRINTER) =‘S‘ 

CLEAR 

REPORT  FORM  RESRPTC.FRM  TO  SCREEN 
WAIT 
ENDIF 

a 
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IF  OPPEB(PRIMTER)»*P* 

CLEAR 

WAIT  'Ready  printer  and  press  (RETURN)' 
REPORT  FORM  RESRPTC.FRM  TO  PRINT 
ENDIF 

CLEAR 

RETURN 


ENDDO 

«  EOF:  BESBFTC.PBa 


•  Progran. :  RESRPTH.PRG 

0  Author..:  Capt  Jeff  Bailey 
»  Last  Revision:  30  August  1988 

•  Notes...:  HELP  for  the  Configuration  Data/Resume  List  Reports 

•  Module  of  the  Equipment  Management  Information  System 

»  Called  From  BESRPT.PRO 

CLEAR 

TEXT 

Welcome  to  the  Configuration  Data/Resume  File  reports  module  of 
the  Equipment  Management  Information  System.  This  module  mill  provide 
you  with  information  needed  to  help  ensure  organizations  supported 
by  you  are  authorized  the  equipment  they  require  and  are  allowed. 

Currently,  this  module  provides  the  following  reports: 


All  Organizations  In  The  Log 
Organizations  By  Office  Symbol 
Organization  By  Table  of  Allowances 


The  requirement  to  maintain  and  manage  configuration  data  is  contained 
in  AFM  67-1,  Vol  II,  Part  2,  Ch  22.  Para  26. 

ENDTEXT 

WAIT  SPACE(ll)  ♦  'Press  any  key  to  return  to  the  Configuration 
'Data/Resusie  File  Menu.' 

CLEAR 

RETURN 

•  EOF:  RESRPTH.PRG 
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0  Program.:  BESHLP.PRG 

*  Author..:  Capt  Jeff  Bailey 

«  Last  Revision:  30  August  1988 

*  Motes _ :  HELP  for  the  Configuration  Data/Resuae  File  Module 

*  of  the  Equipment  Management  Information  System 

*  Called  From  RES. PRO 

CLEAR 

TEXT 

Welcome  to  the  Configuration  Data/Resune  File  module  of 
the  Equipment  Management  Inforstation  System.  This  module  will 
assist  you  in  maintaining  configuration  data  on  the  organizations 
you  support.  It  allows  you  to  add,  update,  and  delete  your  entries 
to  the  file.  It  also  can  provide  you  with  several  reports  to  help 
you  use  the  configuration  data  efficiently. 

Cxirrently,  this  module  supports  the  following  tasks: 


Add  Records  To  The  File 

•••» 

Update  Records  In  The  File 

Delete  Records  From  The  File 

Process  Reports 

The  requirement  for  the  Configuration  Data/Resume  File  is  outlined 
in  AFM  07-1,  Vol  II,  Part  2,  Ch  22,  Para  26. 

EHDTEXT 

WAIT  SPACE(20)  *  ‘Press  any  key  to  see  more  HELP.' 

CLEAR 

TEXT 


»»»»«» »»»»•»«»»•»•»•»»»*• 

From  the  Configuration  Data  resume  File  menu,  press  the 
following  letters  to  begin  working: 

To  ADD  records  to  the  Configuration  Data/Rosume  File  press  CA] 

To  UPDATE  records  in  the  Configuration  Data/Resume  File  press  [B] 

To  DELETE  records  in  the  Configuration  Data/Bes\ime  File  press  [C] 
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To  run  a  BEPOST  on  inforaation  In  the  file  press  [D] 
To  QUIT  usin|  the  system  press  [Q} 


EHDTEXT 

WAIT  SPACE(20)  *  ‘Press  any  key  to  see  more  HELP.* 

CLEAR 

TEXT 

The  data  elements  used  in  the  Configuration  Oata/Resume  File  are 


listed  below.  The  teBq>late 

can  be 

Interpreted  as  follows:  A  ‘ 

means  a  nu8d>er  is  required, 

an  *A‘ 

means  a  letter  is  required, 

an  *X‘  swans  either  a  number 

or  a 

letter  is  allowed. 

Common  Marne 

Width 

Template 

A-BAO 

3  999 

Table  of  Allowances 

3 

999 

B'BAQ 

3 

999 

Building  Mumber 

4 

9999 

C-BAG 

3 

999 

Authorized  Enlisted 

3 

999 

Office  Symbol 

12 

zxxxxxxxxxxx 

Authorized  Officers 

3 

999 

Org/Shop  Code 

5 

999AA 

Senior  Auth  Grade 

2 

A9 

Square  Feet 

6 

999999 

U-BAG 

3 

999 

EMDTEXT 

WAIT  SPACE(ll)  >  'Press  any  key  to  return  to  the  Configuration'; 
Data/Resusw  File  menu.* 


CLEAR 

RETURM 


»  EOF:  RESHLP.PRQ 


»  Program. ;  CUS . PRO 
«  Author..:  Capt  Jeff  Bailey 
»  Last  Revision:  B  August  1988 

»  Motes...:  Perform  Equipment  Custodian  List  operations 
t  Called  from  EMIS.PRO 

USE  CUS 
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00  HRILE  .T. 

T0DAT»DATE() 

CLEAR 

•  1,15  TO  3.65 

•  2.17SAr'EQlJIPMEET  COSTODIIE  LIST* 

•  4.1  TO  20.77  DOUBLE 

•  5.25  SAT  'DATE  TIME* 

#6.23  SAT  TODAT 

•  6.39  SAT  TIMEO 

•  8.20  SAT  '[A]  Add  A  Custodian  To  Tbo  List' 

•  10,20  SAT  *[B]  Update  Custodian  Inforaation* 

•  12,20  SAT  '[C]  Dslsta  A  Custodian  From  The  List* 

•  14,20  SAT  '[D]  Ssports* 

•  16,20  SAT  '[HI  Help  -  How  To  Use  This  System' 

•  18,20  SAT  *[Q]  Quit* 

•  22,8  SAT  '[Enter  Selection  (A  -  D,  H  for  help,  or  Q  to  quit) 
I»0 

00  tmiLE  I-O 
I>I1IXET() 

•  6,39  SAT  TIMEO 

•  22,60  SAT  " 

IF  UPPEB(CHB(I))i*ABCDHQ' 

EXIT 

EHDIF 

I»0 

EHDDO 

•  22,60  SAT  UPPES(CHB(I)) 

00  CASE 

CASE  CHK(I)  $  'Qq* 

SATE  TO  CUS.MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURN 

CASE  CHB(I)  $  'Aa* 

CLEAR 
CLOSE  ALL 
DO  CUSADD 

CASE  CHB(I)  $  *Bb' 

CLEAR 
CLOSE  ALL 
DO  CUSEDT 

CASE  CHR(I)  i  'Cc* 

CLEAR 
CLOSE  ALL 
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DO  COSDIL 


CASE  CHB(I)  t  'Dd' 
CLBAB 
CLOSE  ALL 
DO  CaSRPT 

CASE  CBB(I)  •  ‘Hh' 
CLEAR 
CLOSE  ALL 
DO  CUSHLP 

ENDCASE 

EIDDO 

•  EOF:  CUS.PRO 


•  Progru. :  CnSADD.PRG 

•  Author..:  Copt  Joff  Bailoy 

»  LMt  Roviclon:  9  August  1988 

»  Kotos... :  Add  records  to  the  Equipment  Custodian  List 

•  Called  from  CUS.PRO 

USE  CUS 

DO  NBILE  .T. 

GO  BOTTOM 

•  Initialize  Memory  Variables 
STORE  CUSIR  «  1  TO  MCUSHR 
STORE  SPACE(20)  TO  MLRAME 
STORE  SPACE! 19)  TO  MFHAME 
STORE  SPACE!  1)  TO  Mfl 
STORE  0000  TO  MTRAIHDT 
STORE  0000  TO  MDPRTDT 
STORE  SPACE !2)  TO  MGRAOE 
STORE  0000  TO  MPHOVEl 
STORE  0000  TO  MPHOHE2 
STORE  SPACE !1)  TO  MPAl 
STORE  SPACE !1)  TO  MPA2 
STORE  SPACE! 1)  TO  MPAS 
STORE  SPACE!!)  TO  MPA4 
STOSS  SPACE! 1)  TO  MPAS 
STORE  SPACE !1)  TO  MPAQ 
STORE  SPACE! 1)  TO  MPA7 
STORE  SPACE! 1)  TO  MPAS 
STORE  SPACE! 5)  TO  MOSGSHPl 
STORE  SPACE !5)  TO  M0SGSHP2 
STORE  SPACE! 5)  TO  MORGSHPS 
STORE  SPACE! 5)  TO  M0RGSRP4 
STOSS  SPACE !5)  TO  MORGSHPS 
STOSS  SPACE !S)  TO  MOROSHP6 
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STOBI  SPACE  (5)  TO  IIOROSHP7 
STOBB  SPACE (5)  TO  MOBGSHPS 

•  Draw  Input  Scraan 
CLEAB 

DO  1IBILE  .T. 

TODAT*DATE() 

CLEAB 

•  1,8  TO  3,72 

•  2,10SAT’EQUIP1IEIT  CUSTODIAH  ADD 

•  2,58  SAT  ‘B  0  U  T  I  1  E‘ 

•  6,0  TO  21,77  DOUBLE 

•  7,30  SAT  'Custodian  Busbar ;  '  OET  MCUSMB  PICTUBE  *999' 

CLEAB  GETS 

•  7.3  SAT  'Grada  (E5,  02.  ate.):  *  GET  HQBADE  PICTUBE  'A9‘ 

•  8.3  SAT  'First  Mass:  *  GET  MFBAME  PICTUBE  ' AAAAAAAAAAAAAAA ' 

•  9.3  SAT  'Middla  Initial:  *  GET  Mfl  PICTUBE  *A' 

•  10,3  SAT  'Last  Mass:  *  GET  MLHAIIE  PICTUBE  ’ AAAAAAAAAAAAAAAAAAAA ' 

•  11,3  SAT  'Data  Trainad:  '  GET  IffBAIBDT  PICTUBE  *9999* 

•  11,25  SAT  'Projactad  Oapartura  Data:  '  GET  MDPBTDT  PICTUBE  *9999* 

•  12,3  SAT  'Primary  Phona:  *  GET  MPHOMEl  PICTUBE  *9999* 

•  12,25  SAT  'Altarnata  Phona:  *  GET  IIPHOBE2  PICTUBE  *9999* 

•  13,3  SAT  *Or|anization/Shop  Coda:  *  GET  MOBGSHPl  PICTUBE  '999AA' 

•  13,35  SAT  'Prisary/Altarnata:  *  GET  KPAl  PICTUBE  *A* 

•  14.3  SAT  'Organization/Shop  Coda:  *  GET  M0BGSHP2  PICTUBE  '999AA* 

•  14,35  SAT  'Prisary/Altarnata:  *  GET  IIPA2  PICTUBE  *A' 

•  15,3  SAT  'Organization/Shop  Coda:  *  GET  MOBGSHPS  PICTUBE  '999AA' 

•  15,35  SAT  'Prisary/Altarnata:  *  GET  MPAS  PICTUBE  'A* 

•  10,3  SAT  'Organization/Shop  Coda:  *  GET  M0BGSHP4  PICTUBE  '999AA' 

•  10,35  SAT  'Prisary/Altarnata:  '  GET  IIPA4  PICTUBE  *A' 

9  17,3  SAT  'Organization/Shop  Coda:  *  GET  MOBGSHPS  PICTUBE  '999AA* 

•  17,35  SAT  'Prisary/Altarnata:  *  GET  MPA5  PICTUBE  *A' 

•  18,3  SAT  'Organization /Shop  Coda:  '  GET  M0BGSHP6  PICTUBE  '999AA* 

•  18,35  SAT  'Prisary/Altarnata:  '  GET  MPA6  PICTUBE  'A' 

•  19,3  SAT  *Organization/Sbop  Coda:  *  GET  M0BGSHP7  PICTUBE  '999AA' 

•  19,35  SAT  'Prisary/Altarnata:  '  GET  MPA7  PICTUBE  'A' 

•  20,3  SAT  'Organization/Shop  Coda:  '  GET  MOBGSHPS  PICTUBE  '999AA' 

•  20,35  SAT  'Prisary/Altarnata:  *  GET  MPAS  PICTUBE  *A' 

BEAD 

•  Chack  For  Corraet  Entry 
COBBECT*'  * 

DO  WHILE  .MOT.  COBBECT* * TyMn ' 

f  22,15  SAT  'Is  This  Corraet?  (T/M) '  GET  COBBECT 
BEAD 
•  22,15 
ENDDO 

IF  UPPEB (COBBECT) »*H* 

GOOH*'  • 

DO  WHILE  .MOT.  GOONt'TyMn* 

•  22,15  SAT  'Would  Tou  Lika  To  Continue?  (T/M)'  GET  GOOH 
BEAD 
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•  22,15 
BIDDO 

IF  opPEB(aooir)-*v' 

#22,15  SAT  *B»turninA  to  EquipiMiit  Custodian  List  Main  Menu' 
CLEAB 
BETUBM 
EMDIF 

EMDDO 

EIDIF 

APPEMD  BLABX 

BEPLACE  CnSMB  WITH  MCUSHB 
BEPLACE  QBADE  WITH  MQBAOE 
BEPLACE  FEAMB  WITH  MFHAME 
BEPLACE  MI  WITH  IMI 
BEPLACE  LIAMB  WITH  MLHAME 
BEPLACE  TBAIIDT  WITH  MTBAIHDT 
BEPLACE  DPBTDT  WITH  MDPBTOT 
BEPLACE  PHOBEl  WITH  MPHOIEl 
BEPLACE  PH01IE2  WITH  MPHOHE2 
BEPLACE  OBOSHPl  WITH  MOBQSHPl 
BEPLACE  PAl  WITH  MPAl 
BEPLACE  OBaSHP2  WITH  M0BaSHP2 
BEPLACE  PA2  WITH  MPA2 
BEPLACE  OBGSHPS  WITH  MOBaSHPS 
BEPLACE  PAS  WITH  MPAS 
BEPLACE  OBOSHP4  WITH  MOBOSHP4 
BEPLACE  PA4  WITH  MPA4 
BEPLACE  0B0SHP5  WITH  MOBQSHPS 
BEPLACE  PA5  WITH  MPAS 
BEPLACE  OBQSHP6  WITH  MOBOSHP5 
BEPLACE  PAS  WITH  MPAS 
BEPLACE  OBQSHP7  WITH  MOBQSHPT 
BEPLACE  PAT  WITH  MPA7 
BEPLACE  OBOSHP8  WITH  MOBGSHPS 
BEPLACE  PAS  WITH  MPAS 

•  Cbeck  For  Another  Input 
A]rOTHEB>‘  ' 

DO  WHILE  .HOT.  AMOTHEBi * TyHn * 

•22,15  SAT  'Add  Another  Equipswnt  Custodian?  (T/H) ’  GET  AHOTHER 
BEAD 
•  22,15 
EMDDO 

IF  UPPSB  (AMOTHEB)='T* 

CLEAB 

EXIT 

EMDIF 

IF  UPPEB  (AMOTHEB)«'M‘ 

•22,15  SAT  ‘Beturning  to  Equipment  Custodian  List  Main  Menu' 
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CLEAR 

BETOBN 

EHDIF 

CLEAR 

EEDDO 

EMDDO 

»  EOF:  CUSADD.PRO 


»  Pro|p«a. :  COSEOT.PBO 
»  Auttaop..:  Capt  J«ff  Ballay 

•  Last  Raviilon:  0  AuEuat  1986 

•  Hotaa...:  Edit  ptcopda  In  the  Equipaent  Cuatodlan  Lia 

»  CalUd  fpom  CUS.PRO 

USE  CUS 

00  HOBECORD 

DO  PAUSE 


DO  NHILE  .T. 


»  Initial Iza  Manopy  Vaplablaa 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


000  TO  MCUSRR 
SPACE (30)  TO  MLHAME 
SPACE (19)  TO  MFRAIIE 
SPACE! 1)  TO  MMI 
0000  TO  NTRAIIDT 
0000  TO  MDPBTDT 
SPACE (2)  TO  MSRADE 
0000  TO  UPBORE 1 
0000  TO  IIPHOHE2 


SPACE (1) 

TO 

MPA! 

SPACE! 1) 

TO 

MPA2 

SPACE! 1) 

TO 

MPAS 

SPACE!!) 

TO 

MPA4 

SPACE!!) 

TO 

MPA5 

SPACE!!) 

TO 

MPAO 

SPACE!!) 

TO 

MPA7 

SPACE!!) 

TO 

MPAS 

SPACE (5) 

TO 

MOROSHP! 

SPACE !S) 

TO 

M0RaSHP2 

SPACE!5) 

TO 

MORaSHPS 

SPACE !5) 

TO 

MOROSHP4 

SPACE !5) 

TO 

MOBGSHPS 

SPACE !5) 

TO 

MOROSHPO 

SPACE! 5) 

TO 

MOROSHP7 

SPACE !5) 

TO 

MOROSHPe 

DO  raiLE  .T. 
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•  Draw  Input  Scraan 
CLBAB 

•  1,7  TO  3,73 

•2,9SAT*EQOIPMEMT  CUSTODIAN  EDIT 

•  2,S9  SAT  'R  0  U  T  I  H  E‘ 

•  6,0  TO  21,77  DOUBLE 

6  7,3  SAT  ‘Qrada  (ES,  02,  ate.): 

•  7,30  SAT  ’Custodian  Buid>ar:  * 

•  8.3  SAT  ’First  laM:  * 

•  9,3  SAT  ’Middla  Initial:  ’ 

•  10,3  SAT  ’Last  laaa:  ’ 

•  11,3  SAT  ’Data  Trainad:  ’ 

•  11,25  SAT  ’Projaetad  Dapartura  Data: 

•  12,3  SAT  ’Priaary  Phona:  ’ 

•  12,25  SAT  ’Altarnata  Phona: 

•  13,3  SAT  ’OrEanisation/Shop  Coda; 

•  13,35  SAT  ’Priaary/ Altarnata;  ’ 

•  14,3  SAT  ’ Organization/ Shop  Coda: 

•  14,35  SAT  ’Priaary/Altarnata:  ’ 

•  15,3  SAT  ’Organization/Shop  Coda: 

•  15,35  SAT  ’Priaary/Altarnata:  ’ 

i  16,3  SAT  ’Organization/Shop  Coda: 

•  16,35  SAT  ’Priaary/Altarnata: 

•  17,3  SAT  ’Organization/Shop  Coda:  ’ 

6  17,35  SAT  ’Priaary/Altarnata: 

6  18,3  SAT  ’Organization/Shop  Coda:  ’ 

•  18,35  SAT  ’Priaary/Altarnata:  ’ 

•  19,3  SAT  ’Organization/Shop  Coda:  ’ 

•  19,35  SAT  ’Priaary/Altarnata: 

•  20,3  SAT  ’Organization/Shop  Coda:  ’ 

•  20,35  SAT  ’Priaary/Altarnata:  ’ 

»  Input  Custodian  Huabar 

9  22,15  SAT  ’Entar  Custodian  Nuabar’  OET  MCUSNB  PICTURE  ’999’ 
READ 

•  Saar eh  For  Raquastad  Custodian  Nuabar 
LOCATE  FOB  CUSNB  *  MCUSNR 

IF  .NOT.  FOUNDO 

»  Custodian  Nuabar  Is  Not  In  Tha  Log 

•  22,15 

•  22,15  SAT  ’Custodian  Nuabar’  OET  MCUSNR  PICTURE  ’999’ 

9  22,36  SAT  ’cannot  ba  found.’ 

CLEAR  GETS 

GOON  «  ’  • 

DO  WHILE  .NOT.  GOONi’TyNn’ 

9  23,15  SAT  ’Would  Tou  Lika  To  Continua?  (T/N) ’  GET  GOON 
READ 
ENDDO 

IF  0PPER(G00N)«’N’ 

923,15  SAT  ’Raturning  to  Equipaant  Custodian  List  Main  Manu' 

CLEAR 

RETURN 
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BIDIF 


CLEAR 

LOOP 

EVDIF 

•  If  Record  li  Locetod.  Display  Data 

•  e.O  to  21,77 

•  7,30  SAT  'Custodian  Vuidior:  *  SET  MCtJSIR  PICTURE  *999' 

•  7,3  SAT  'Orada  (ES,  02,  ate.):  *  OET  QRADE  PICTURE  *A9’ 

•  8,3  SAT  'First  laaa:  *  OET  FRAME  PICTURE  ' AAAAAAAAAAAAAAA’ 

•  9,3  SAT  'Middle  Initial:  *  OET  MI  PICTURE  'A' 

•  10,3  SAT  'Last  Raaa:  ‘  GET  LRAME  PICTURE  ' AAAAAAAAAA AAAAAAAAAA ' 

•  11,3  SAT  ‘Data  Trained:  ‘  GET  TRAIHDT  PICTURE  *9999' 

•  11, 2S  SAT  'Projected  Departure  Date:  *  GET  DPRTDT  PICTURE  ‘9999’ 

•  12,3  SAT  ‘Priaary  Phone:  '  GET  PBOREl  PICTURE  '9999' 

•  12,28  SAT  'Alternate  Phone:  *  GET  PB0HE2  PICTURE  '9999' 

f  13,3  SAT  ‘Or|anlzatlon/Shop  Code:  *  GET  ORGSBPl  PICTURE  '999AA‘ 

•  13,38  SAT  'Priaary/Alternate:  *  GET  PAl  PICTURE  ‘A* 

•  14,3  SAT  'Orlanisation/Shop  Code:  *  GET  0RGSBP2  PICTURE  ‘099AA‘ 

•  14,38  SAT  ‘Priaary/Alternate:  '  GET  PA2  PICTURE  'A' 

•  18,3  SAT  *Or|anizatlon/Shop  Code:  ‘  GET  ORGSBP3  PICTURE  ‘999AA‘ 

•  18,38  SAT  ‘Priaary/Alternate:  ‘  GET  PA3  PICTURE  'A' 

•  18,3  SAT  ‘OrRanization/Shop  Code:  '  GET  0RGSBP4  PICTURE  ‘999AA' 

•  18,38  SAT  'Priaary/Alternate:  *  GET  PA4  PICTURE  'A' 

•  17,3  SAT  ‘Organization/Shop  Code:  ‘  GET  0RGSBP5  PICTURE  ’999AA‘ 

•  17,38  SAT  ‘Priaary/Alternate:  *  GET  PA8  PICTURE  'A' 

•  18,3  SAT  'Organization/Shop  Code:  *  GET  0RGSBP8  PICTURE  ‘999AA‘ 

•  18,38  SAT  ‘Priaary/Alternate:  *  GET  PA6  PICTURE  'A' 

•  19,3  SAT  ‘Organization/Shop  Code:  *  GET  0RGSBP7  PICTURE  ‘909AA' 

8  19,38  SAT  ‘Priaary/Alternate:  ‘  GET  PA7  PICTURE  ‘A‘ 

•  20,3  SAT  ‘Organization/Shop  Code:  ‘  GET  0SGSBP8  PICTURE  '999AA‘ 

•  20,38  SAT  ‘Priaary/Alternate:  ‘  GET  PA8  PICTURE  'A' 

CLEAR  GETS 

CORRECT  »  ' 

DO  MBILE  .ROT.  CORRECTf ‘ Ty Vn ' 

•  22,18 

•  22,18  SAT  'Is  this  the  correct  record?  (T/N) ’  GET  CORRECT 
READ 

ERDDO 

IF  UPPER(CORRECT)>'R‘ 

•  22,18 
GOOR  *  ‘ 

DO  MBILE  .ROT.  GOORA'TyRn' 

•  22,18  SAT  'Would  Tou  Like  To  Continue?  (T/R) ‘  GET  GOOR 
READ 

•  22,18 
ERDDO 

IF  OPPEB(GOOR)»'R' 

•22,18  SAT  ‘Returning  to  Equipment  Custodian  List  Main  Menu' 
CLEAR 
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BETIIRI 

EMDIF 

LOOP 

BIDIF 

DO  MIILS  .T. 

•  7.3  SAT  *Orad*  (BS.  02,  •to.):  *  QET  OBAOE  PICTUBE  ’A9‘ 

•  8,3  SAT  ’First  Ham:  '  QET  FHAMB  PICTUBE  ‘AAAAAAAAAAAAAAA’ 

•  9.3  SAT  'MlddU  InitiAl:  *  OET  MI  PICTUBE  ‘A’ 

•  10,3  SAT  'LAAt  Mam:  '  OET  LHAMB  PICTUBE  ’ AAAAAAAAAAAAAAAAAAAA ’ 

•  11,3  SAT  'OAtA  TrAinAd:  ‘  OET  TBAIMDT  PICTUBE  ‘9999’ 

•  11,25  SAT  ’ProjAotAd  DApArturA  OAtA:  ’  OET  DPBTDT  PICTUBE  ’9999' 

•  12,3  SAT  ’PrlMry  PhonA:  ’  QBT  PBOMEl  PICTUBE  ’9999’ 

•  12,25  SAT  ’AltArnAtA  PhonA:  ’  QET  PH0HE2  PICTUBE  ’9999' 

•  13,3  SAT  ’Or|AniXAtion/Shop  CodA:  ’  QET  OBOSHPl  PICTUBE  ‘999AA’ 

•  13,35  SAT  'PrlMry/ AltArnAtA:  ’  OET  PAl  PICTUBE  ’A’ 

•  14,3  SAT  'OrgAnizAtion/Shop  CodA:  ’  QET  0BaSHP2  PICTUBE  ’999AA’ 

•  14,35  SAT  'PrlMry /AltArnAtA:  ’  QET  PA2  PICTUBE  'A' 

•  15,3  SAT  ’Or|AniZAtion/Shop  CodA:  ’  QET  OBQSHPS  PICTUBE  ’999AA’ 

•  15,35  SAT  'PrlMry/AltArnAtA:  ’  QET  PA3  PICTUBE  'A' 

t  15.3  SAT  'OrgAnizAtion/Shop  CodA:  ’  QET  0BQSHP4  PICTUBE  ’999AA' 

t  10,35  SAT  'PrlMry/AltArnAtA:  ’  GET  PA4  PICTUBE  'A' 

•  17,3  SAT  'OrgAnlzAtion/Shop  CodA:  ’  GET  0BQSHP5  PICTUBE  ’999AA' 

•  17,35  SAT  'PrlMry/AltArnAtA:  ’  QBT  PA5  PICTUBE  'A' 

•  18,3  SAT  'OrgAnlzAtion/Shop  CodA:  ’  QET  0BQSHP6  PICTUBE  ‘999AA‘ 

•  18,35  SAT  'PrlMry/AltArnAtA:  '  QET  PA8  PICTUBE  'A' 

•  19,3  SAT  ‘OrgAnlzAtlon/Shop  CodA:  ‘  QET  0BQSHP7  PICTUBE  ‘999AA‘ 

•  19,35  SAT  'PrlMry/AltArnAtA:  '  QBT  PA7  PICTUBE  'A' 

•  20,3  SAT  'OrgAnizAtion/Shop  CodA:  '  QET  0BQSHP8  PICTUBE  '999AA' 

•  20.35  SAT  ‘PrlMry/AltArnAtA:  ‘  QET  PAS  PICTUBE  'A' 

f  22,15  SAT  'Qo  AhAAd  And  oAkA  thA  nACAZSAry  chAngAS.' 

BEAD 

•22,15 

•  ChAck  For  Corroct  Entry 
COBBECT  «  ’ 

DO  NHILE  .HOT.  COBBECTi ' TyHn ' 

•  22,15  SAT  ‘Is  This  Corroct?  (T/H) '  QET  COBBECT 
BEAD 

•  22,15 
EHDDO 

IF  UPPEB(COBBECT>«'H' 

QOOH  »  '  ' 

DO  WHILE  .HOT.  QOOHf'TyHn' 

•  22,15  SAT  ‘Mould  Tou  Like  To  Contlnuo?  (T/H) ‘  QET  QOOH 
BEAD 

•  22,15 
EHDDO 

IF  UPPEB(QOOM)>‘H‘ 

•22,15  SAT  'Boturning  to  EquipMnt  Custodisn  List  Msln  Menu' 
CLEAB 
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BETUIW 

EMOIF 

EMDDO 

EHDIF 

MQRADE  *  GRADE 
MFEAME  «  FRAME 
MMI  *  Ml 

MLIAIS  »  LMAME 
MTBAIVDT  «  TBAIMDT 
MDPRTDT  »  DPRTDT 
MPHOMEl  >  PHONEl 
MPHORE2  »  PH01IE2 
MOBGSHPl  >  ORGSHPl 
MPAl  -  PAl 
M0RaSHP2  «  ORaSHP2 
MPA2  «  PA2 
MORGSRPS  *  ORGSRP3 
MPAS  *  PAS 
M0RGSHP4  «  ORGSHP4 
MPA4  >  PA4 
MORGSHPS  >  ORGSRPS 
MPAS  »  PAS 
MORGSRPS  «  ORGSRPS 
MPAS  *  PAS 
M0RGSRP7  >  0RGSRP7 
MPA7  *  PA7 
MORGSRPS  «  ORGSRPS 
MPAS  >  PAS 

REPLACE  GRADE  MITR  MQRADE 
REPLACE  FRAME  NITB  MFRAME 
REPLACE  MI  WITR  MMI 
REPLACE  LRAME  WITR  MLRAME 
REPLACE  TBAIRDT  WITR  MTRAIRDT 
REPLACE  DPRTDT  WITR  MDPRTDT 
REPLACE  PROREl  WITR  MPHOREl 
REPLACE  PRORE2  WITR  MPRORE2 
REPLACE  OBGSRPl  WITR  MOBGSHPl 
REPLACE  PAl  WITH  MPAl 
REPLACE  ORGSRP2  WITR  M0RQSHP2 
REPLACE  PA2  WITH  MPA2 
REPLACE  ORGSRPS  WITR  MORGSHPS 
REPLACE  PAS  WITH  MPAS 
REPLACE  ORGSHP4  WITH  M0RGSHP4 
REPLACE  PA4  WITR  MPA4 
REPLACE  ORGSRPS  WITH  MORGSRPS 
REPLACE  PAS  WITH  MPAS 
REPLACE  ORGSRPS  WITH  MORGSHPS 
REPLACE  PAS  WITH  MPAS 
REPLACE  0RGSHP7  WITR  M0RQSHP7 
REPLACE  PA7  WITH  MPA7 
REPLACE  ORGSRPS  WITH  MORGSHPS 
REPLACE  PAS  WITH  MPAS 
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I 


*  Ch«ek  For  Anothor  Edit 
ASOTHEB  «  ‘ 

DO  WILE  .EOT.  ANOTHERt'TyNn* 

•22.15  SAY  'Update  Another  Record?  (Y/N) '  GET  ANOTHER 
READ 
•  22.15 
EMDDO 

IF  UPPER  (ANOTHER) a *N* 

•22,15  SAY  'Equipment  Custodian  Main  Menu' 

CLEAR 

RETURN 

ENDIF 

ENDDO 

ENDDO 

»  EOF:  CUSEDT.PRQ 


•  Pro|ram. :  CUSDEL . PRO 

«  Author..:  Capt  Jeff  Bailey 
»  Last  Revision:  9  August  1988 

»  Notes...:  Delete  records  from  the  Equipment  Custodian  List  of  the 

•  Equipment  Management  Information  System 

•  Called  from  CUS.PRG 

USE  CUS 
DO  WHILE  .T. 

DO  NORECOBD 


DO  WHILE  .T. 


»  Initialize  Memory  Variables 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


000  TO  MCUSNR 
SPACE (20)  TO  MLNAME 
SPACE (15)  TO  MFNAME 
SPACE(l)  TO  IMI 
0000  TO  MTRAINDT 
0000  TO  MDPBTDT 
SPACE (2)  TO  MQRADE 
0000  TO  MPHONEl 
0000  TO  MPHONE2 
SPACE (1)  TO  MPAl 
SPACE(l)  TO  MPA2 
SPACE (1)  TO  MPA3 
SPACE (1)  TO  MPA4 
SPACE(l)  TO  MPA5 
SPACE(l)  TO  MPA6 
SPACE(l)  TO  MPA7 
SPACE (1)  TO  MPAS 
SPACE (5)  TO  MORGSHPl 
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STORE  SPACE (5)  TO  IIORaSHP2 
STORE  SPACE (5)  TO  MOROSHPS 
STORE  SPACE (5)  TO  IIOROSHP4 
STORE  SPACE (5)  TO  MOROSHPS 
STORE  SPACE (5)  TO  MOROSHPe 
STORE  SPACE (5)  TO  M0S0SHP7 
STORE  SPACE (5)  TO  MOROSHPS 

DO  WHILE  .T. 

»  Drftw  Screen 
CLEAR 

•  1,4  TO  3,74 

•  2, 6  SAY  ‘EQUIPMENT  CUSTODIAN  DELETE 

•  2,58  SAY  ‘  ROUTINE* 

•  4,1  TO  20,77  DOUBLE 

•  7,3  SAY  'Grade  (E5,  02,  etc.):  ‘ 

•  7,30  SAY  * Cue tod i an  Number:  * 

•  8,3  SAY  ‘Flrat  Name:  ‘ 

•  9,3  SAY  ‘Middle  Initial:  ‘ 

•  10,3  SAY  ‘Laat  Name:  * 

•  11,3  SAY  ‘Date  Trained:  ‘ 

•  11,25  SAY  ‘Projected  Departure  Date:  ‘ 

$  12,3  SAY  ‘Primary  Phone:  ‘ 

•  12,25  SAY  ‘Alternate  Phone:  ‘ 

•  13,3  SAY  'Organization/Shop  Code:  * 

•  13,35  SAY  ‘Primary/Alternate: 

•  14,3  SAY  ‘Organization/Shop  Code:  * 

•  14,35  SAY  ‘Primary/Alternate:  * 

•  15,3  SAY  ‘Organization/Shop  Code:  ‘ 

•  15,35  SAY  ‘Primary/Alternate:  ‘ 

•  16,3  SAY  ‘Organlzatlon/Shop  Code:  ‘ 

•  16,35  SAY  ‘Prioiary/Alternate:  ‘ 

•  17,3  SAY  ‘Organization/Shop  Code:  ‘ 

•  17,35  SAY  ‘Primary/Alternate: 

•  18,3  SAY  ‘Organization/Shop  Code:  ‘ 

•  18,35  SAY  ‘Primary/Alternate:  ‘ 

•  19,3  SAY  ‘Organization/Shop  Code:  * 

•  19,35  SAY  ‘Primary/Alternate:  ' 

•  20,3  SAY  ‘Organization/Shop  Code:  * 

f  20,35  SAY  ‘Primary/Alternate: 

«  Input  Cuatodian  Number 

•  22,15  SAY  ‘Enter  Custodian  Number*  GET  MCUSNR  PICTURE  ‘999* 

READ 

»  Search  For  Requested  Custodian  Number 
LOCATE  FOR  CUSNR  =  MCUSNR 
IF  .NOT.  FOUNDO 

•  Custodian  Number  Is  Not  In  The  Log 

•  22,15 

•  22,15  SAY  ‘Custodian  Number*  GET  MCUSNR  PICTURE  ‘999* 

•  22,36  SAY  ‘cannot  be  found.* 

CLEAR  GETS 

GOON  «  ‘  ‘ 
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DO  WHILE  .NOT.  GOONi'YyNn' 

•  23,15  SAY  ‘Would  You  Like  To  Continue?  (Y/H) ‘  OET  GOON 
HEAD 
ENDDO 

IF  lJPPEB(GOON)*‘N‘ 

•23,15  SAY  ‘Returning  to  Equipment  Custodian  List  Main  Menu‘ 
CLEAR 
RETURN 
ENDIF 

CLEAR 

LOOP 

ENDIF 

»  If  Record  Is  Located,  Display  Data 
CLEAR 

•  6,0  to  21,77 

•  7,30  SAY  ‘Custodian  Number:  ‘  GET  MCUSNR  PICTURE  ‘999‘ 

•  7,3  SAY  ‘Grade  (E5,  02,  etc.):  ‘  GET  GRADE  PICTURE  *A9‘ 

•  8,3  SAY  ‘First  Name:  ‘  GET  FRAME  PICTURE  ‘ AAAAAAAAAAAAAAA ‘ 

•  9,3  SAY  ‘Middle  Initial:  ‘  GET  MI  PICTURE  ‘A‘ 

•  10,3  SAY  ‘Last  Name:  ‘  GET  LNAME  PICTURE  ‘ AAAAAAAAAAAAAAAAAAAA ‘ 

•  11,3  SAY  ‘Date  Trained:  ‘  GET  TBAINDT  PICTURE  ‘9999‘ 

•  11,25  SAY  ‘Projected  Departure  Date:  ‘  GET  DPBTDT  PICTURE  ‘9999’ 

•  12,3  SAY  ‘Primary  Phone:  ‘  GET  PHONEl  PICTURE  ‘9999* 

•  12,25  SAY  ‘Alternate  Phone:  ‘  GET  PH0NE2  PICTURE  ‘9999‘ 

•  13,3  SAT  ‘Organization/Shop  Code:  ‘  GET  ORGSHPl  PICTURE  ‘999AA‘ 

•  13,35  SAY  ‘Primary/Alternate:  ‘  GET  PAl  PICTURE  *A‘ 

•  14,3  SAY  ‘Organization/Shop  Code:  *  GET  OROSHP2  PICTURE  ‘999AA‘ 

•  14,35  SAY  ‘Primary/Alternate:  ‘  GET  PA2  PICTURE  ‘A‘ 

•  15,3  SAY  ‘Organization/Shop  Code:  ‘  GET  0RGSHP3  PICTURE  ‘999AA‘ 

•  15,35  SAY  ‘Primary/ Alternate:  ‘  GET  PA3  PICTURE  ‘A‘ 

•  16,3  SAY  ‘Organization/Shop  Code:  ‘  GET  0RGSHP4  PICTURE  ‘999AA‘ 

•  16,35  SAY  ‘Primary/Alternate:  ‘  GET  PA4  PICTURE  ‘A‘ 

•  17,3  SAY  ‘Organization/Shop  Code:  ‘  GET  OROSHP5  PICTURE  '999AA’ 

•  17,35  SAY  ‘Primary/Alternate:  ‘  GET  PAS  PICTURE  ‘A’ 

•  18,3  SAY  ‘Organlzatlon/Shop  Code:  ‘  GET  0R0SHP6  PICTURE  ‘999AA' 

•  18,35  SAY  ‘Primary/Alternate:  ’  GET  PA6  PICTURE  ’A‘ 

•  19,3  SAY  ‘Organization/Shop  Code:  ‘  OET  0B0SHP7  PICTURE  ’999AA' 

•  19,35  SAT  ‘Primary/ Alternate:  ‘  GET  PA7  PICTURE  *A‘ 

•  20,3  SAY  ‘Organization/Shop  Code:  ‘  GET  ORGSHPS  PICTURE  ‘999AA' 

•  20,35  SAY  ‘Primary/Alternate:  ‘  GET  PA8  PICTURE  ‘A‘ 

CLEAR  GETS 

CORRECT  =  •  ‘ 

DO  «I«ILE  .NOT.  CORRECT* ‘YyNn‘ 

•  22,15 

•  22,15  SAY  ‘Is  this  the  correct  record?  (Y/N) ‘  GET  CORRECT 
READ 

ENDDO 

IF  DPPER(CORRECT)*‘N‘ 

•  22,15 


DO  WHILE  .HOT.  QOOMt'TyHn' 

•  22,15  SAY  ‘Would  You  Like  To  Continue?  (Y/M) '  GET  GOOH 
READ 
f  22,15 
EHDDO 

IF  OPPBH(aOOH)*‘H* 

•22,15  SAY  ‘Beturninj  to  Equipment  Custodian  List  Main  Menu* 
CLEAR 
RETDRH 
BHDIF 

LOOP 

EMDIF 

IICORRECT  =  ■ 

DO  WHILE  .HOT.  MCORRECTt * YyHn ’ 

•22,15 

•22,15  SAY  'Are  you  sure  that  you  want  to  delete  this  record?  (Y/N) ‘ 
GET  MCORBECT 
BEAD 
EHDDO 


IF  UPPER (MCORBECT) »*H‘ 

•23,15  SAY  ‘This  record  will  not  be  deleted.* 

DO  PAUSE 
•22,15 
•23,15 
MQOOH  >  * 

DO  WHILE  .HOT.  MGOONi'YyHn* 

•  22,15  SAY  'Would  You  Like  To  Continue?  (Y/H) *  GET  MQOOH 
READ 

•  22,15 
EHDDO 

IF  UPPER (MQOOH) s' H* 

•22,15  SAT  'Returning  to  Equipment  Custodian  List  Main  Menu* 
CLEAR 
RETURH 
EHDIF 
EHDDO 
EHDIF 

DELETE  ALL  FOB  CUSHR  »  MCUSHR 
PACK 

•  Check  for  another  delete 
MAHOTHER  «  ‘ 

DO  WHILE  .HOT.  MAHOTHER* ' YyHn * 

•22,15 

•22,15  SAY  ‘This  record  has  been  deleted.* 

•23,15  SAY  'Would  you  like  to  delete  another  record?  (Y/H) * ; 

GET  MAHOTHER 
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DO  PAUSE 
BEAD 
•22.15 
•23.15 
EVDDO 

IF  UPPEB  (IIAliOTHEB)>’H* 

•22.15  SAT  ‘BcturnlnA  To  Equipaont  Custodian  List  Main  Menu' 
CLEAB 
BETUBH 
EIDIF 

EHDDO 

EHDDO 

»  EOF:  CUSDEL.PBG 


»  Program.:  CUSBPT.PBQ 
»  Author..:  Capt  Jeff  Bailey 
»  Last  Bevision:  9  August  1988 

•  Botes...:  Create  Beports  from  the  Equipment  Custodian  List 

•  Called  from  CUS.PBO 

USE  CUS 

DO  MOBECOBO 

DO  WHILE  .T. 

TODAT»DATE() 

CLEAB 

•  1.5  TO  3.77 

•2.7SAT‘EQUIPMEHT  CUSTODIAB  BEPOBTS 

•  2.83  SAT  'B  0  U  T  I  B  E' 

•  4.1  TO  21.77  DOUBLE 

•  5.25  SAT  'DATE  TIME* 

•  6.23  SAT  TODAT 

•  8.39  SAT  TIMEO 

•  8,20  SAT  '[A]  All  Custodians' 

•  10.20  SAT  *[B1  By  Training  Date* 

•  12,20  SAT  *[C}  By  Custodian  Bame* 

•  14,20  SAT  *[D1  By  Organization  and  Shop  Code* 

•  16,20  SAT  *[H]  Help  -  How  To  Use  The  Beports  System* 

•  18.20  SAT  '[Q]  Quit' 

•  23,8  SAT  '[Enter  Selection  (A  -  D,  H  for  help,  or  Q  to  quit)  : 


I»0 

DO  WHILE  I>0 
I»IBKET() 

•  6,39  SAT  TIMEO 

•  23,80  SAT  ** 

IF  UPPEB(CHB(I))8*ABCDHQ* 
EXIT 
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EIDIF 


I«0 

EHDDO 

•  23.60  SAY  UPPEB(CHB(I)) 


*  Input  Prlnt*r/Scr««n  Rnqucat 
J  «  251 

DO  CASE 

CASE  CBB(I)  «  *Qq* 

SAVE  TO  CDS. MEM 
CLEAR  ALL 
CLEAR 

CLOSE  DATABASES 
RETURI 

CASE  CHB(I)  $  *Aa‘ 

•  8,18  SAY  CHB(J) 

DO  PAUSE 
DO  COSRPTA 

CASE  CHB(I)  8  *Bb’ 

•10,18  SAY  CHB(J) 

DO  PAUSE 
DO  CUSRPTB 

CASE  CHR(I)  i  ’Cc° 

•12,18  SAY  CHR(J) 

DO  PAUSE 
DO  CUSRPTC 

CASE  CHB(I)  f  'Dd* 

•14,18  SAY  CHB(J) 

DO  PAUSE 
DO  CUSRPTD 

CASE  CHB(I)  i  *Hh' 

•16,18  SAY  CHB(J) 

DO  CUSRPTB 

EHDCASE 

ENDDO 

»  EOF:  CUSBPT.PRO 


•  ProEram. ;  CDSBPTA.PRG 

•  Author..:  Capt  Jaff  Bailey 

•  Laet  Reviaion:  9  August  1988 

»  Notes...;  Create  a  report  containing  all  custodians  in  the  Equipment 
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» 


Custodian  List 
Called  from  CfJSSPT.PRa 


USE  CUS 
00  MHILE  .T. 

*  Input  Prlnter/Scpeen  Hequest 
J  >  251 

•  8.18  SAT  CHR(J) 

PBIMTEH  »  •  • 

CLEAB 

TEXT 


This  report  will  provide  a  list  of  all  of  the  custodians  in 
the  Equipment  Custodian  List. 

EHOTEXT 

DO  WHILE  .MOT.  PRIMTERA'PpSsQq* 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)? 
GET  PRIMTER 
READ 
EMDOO 

CLEAR 

IF  DFPEB(PRIMTER)*'Q' 

SATE  TO  CDS. MEM 
CLEAB  ALL 
CLEAR 

CLOSE  DATABASES 
RETUBH 
EMDIF 

IF  UPPER (PRIMTER)* 'S' 

TEXT 


Most  reports  are  lon|er  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

<CONTROL  S> 


To  START  the  report  scrolling  again  type 

< RETURN) 
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EKDTEXT 


WAIT 

CLEAB 

BEPOBT  FORM  CUSRPTA.FRM  TO  SCREES 
WAIT 
EIDIF 

IF  DFPER(PRIirrES)**P‘ 

CLEAR 

WAIT  ’Ready  printer  and  press  <RETnRM>* 
REPORT  FORM  CUSRPTA.FRM  TO  PRIST 
ESDIF 

CLEAR 

RETURS 

ESDDO 

«  EOF:  CaSRPTA.PRO 


•  Prosraa. :  CUSRPTB.PRQ 

•  Author..:  Capt  Jeff  Bailey 

•  Last  Revision:  9  August  1988 

»  Sotes...:  Create  a  report  of  records  in  the  Equipment  Custodian 
»  List  with  custodian  training  dates  between  user 

»  specified  beginning  and  ending  dates 

•  Called  from  CUSRPT.PRQ 

USE  CUS 
DO  WHILE  .T. 

•  Input  Printer/Screen  Request 
J  »  251 

•  10,18  SAT  CHR(J) 

PRISTER  *  ’  ‘ 

CLEAR 

TEXT 


This  report  will  provide  a  list  of  all  of  the  custodians  in 
the  Equipment  Custodian  List  who  were  trained  on  or  after  the 
beginning  date  you  specify  and  on  or  before  the  ending  date 
you  specify. 


EMDTsrr 


•  Initialize  Maaory  Variables 
STORE  0000  TO  mRAIMB 

STORE  0000  TO  MTRAIVE 

•  Input  Report  Dates 

f  20,15  SAT  ‘Enter  SeRinnlnE  Julian  Date  Of  Report'; 

OST  MTRAIIB  PICTURE  ‘0009‘ 

•  22,15  SAT  'Enter  Ending  Julian  Date  of  Report'; 

OET  MTRAIIE  PICTURE  '9009' 

READ 

SET  FILTER  TO  TRAIRDT  >«  ITTRAIRB  .AXD.  TRAIHDT  <>  tCTRAIME 
GO  TOP 

CLEAR 

DO  WHILE  .HOT.  PRIHTERA'PpSsQq' 

•22,15  SAT  'Send  Output  To  Printer  or  Screen  (P/S,  or  Q  to  quit)? 
GET  PRIHTER 
READ 
EMDDO 

CLEAR 

IF  UPPER(PRI1ITER)»'Q' 

SAVE  TO  CUSSPT.MEM 

CLEAR  ALL 

CLEAR 

CLOSE  DATARASES 
RETURH 
EHDIF 

IF  UPPER(PRIHTER)»‘S‘ 

TEXT 


Most  reports  are  longer  than  one  screen.  Therefore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

<C0HTS0L  S> 


To  START  the  report  scrolling  again  type 

< RETURN) 
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EVDTEXT 


WAIT 

CLEAB 

REPOBT  FORM  CaSRPTB.FBM  TO  SCREEM 

WAIT 

EHDIF 

IF  UPPER (FRIITER)»‘P‘ 

CLEAR 

WAIT  ’Ready  printer  and  preee  <RETnRH>’ 
REPORT  FORM  CUSRTPB.FRM  TO  PRIIIT 
EBBIF 

CLEAR 

RETURM 

EMDDO 

»  EOF:  CUSRPTB.PRQ 


•  • 


•  ProEraa. :  CUSRPTC.PRQ 
«  Author..:  Capt  Jeff  Bailey 

•  Laat  Revlalon:  0  Auguat  1988 

•  Hotea...:  Create  a  report  Hating  information  on  a  uaer  specified 

•  equlpoMnt  euatodlan  i 

»  Called  from  CUSRPT.PRO 

USE  CUS 

DO  WHILE  .T. 

«  Input  Printer/Screen  Request 
J  >  251 

•  12.18  SAT  CHR(J) 

PRIHTER  *  • 

CLEAR 

«  Initialize  Memory  Variables 
STORE  SPACE (IS)  TO  MFHAME 
STORE  SPACE (20)  TO  MLHAME 

TEXT 


This  report  will  provide  Information  on  a  user  specified 
equlpoMnt  custodian.  It  is  very  li^ortant  that  you  spell 
the  custodian’s  first  and  last  name  exactly  as  it  is  spelled 
in  the  database.  Note  also  that,  if  there  are  two  custodians 
with  the  sasM  first  and  last  name,  the  report  will  provide 
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inforaatlon  on  both. 


BIDTBXT 


•  Input  Inao 

•  18,15  SAT  'First  M«m:  '  GET  MFHAMB  PICTUSE  'XXXmxmXXm* 

•  20,15  SAT  *Ust  Bsm:  ‘  QET  MLHAME  PICTOBE  ' XXXXXXXXXXXXXXXXXXXX 

BEAD 

SET  FILTEB  TO  FMAMS  «  DPPEBdlFBAllE)  .ABD.  LHAIIE  =  IJPPEB(ULNAIIE) 

00  TOP 
CLEAB 


DO  miLB  .MOT.  PBIHTEBS'PpSsQq' 

•22,15  SAT  *S«nd  Output  To  Printor  or  Scroon  (P/S,  or  Q  to  quit) 
OET  PBIMTEB 
BEAD 
EMDDO 

CLEAB 

IF  UPPEB(PBIMTEB)«‘Q‘ 

SATE  TO  CnSBPT.MEM 

CLEAB  ALL 

CLEAB 

CLOSE  DATABASES 
BETUBl 
EMDIF 

IF  DPPEB(PBIHTEB)>’S* 

TEXT 


Most  rsports  srs  longsr  than  ons  scrssn.  Tbsrtfore,  they  will 
scroll  up  the  screen  until  the  end  of  the  report  is  reached. 


To  STOP  the  report  as  it  scrolls  up  the  screen  type 

<C0IITB0L  S> 

To  STABT  the  report  scrolling  again  type 

<BETUBM> 


EMDTEXT 

WAIT 
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CLEAB 

REPOST  FOBII  CnSBPTC.FRM  TO  SCBEEV 
lAIT 
EIDIF 

IF  OPPER(PRIIITER)»*P' 

CLEAR 

WAIT  *S««dy  printer  and  prees  <SETUSV>' 
REPOST  FORM  COSSPTC.FSM  TO  PSIBT 
EEDIF 

CLEAR 

SETURS 

EIDDO 

»  EOF:  CUSRPTC.PSG 


•  Prograa. :  CUSSPTD.PSO 

»  Author..:  Capt  Jeff  Bailey 

•  Last  Seviaion:  9  August  1986 

»  Notes...:  Create  a  report  of  custodians  in  the  Equipment 
»  Custodian  List  responsible  for  a  user  specified 

»  Organization  and  Shop  Code 

•  Called  from  cnSRPT.PSO 

USE  CUS 
DO  WHILE  .T. 

«  Input  Printer/Screen  Request 
J  »  251 

9  14,18  SAT  CHS(J) 

PRINTER  »  • 

CLEAR 

TEXT 


This  report  will  provide  a  list  of  the  custodians  in  the 
Equipment  Custodian  List  responsible  for  the  organization 
.  and  shop  code  you  specify. 


ENDTEXT 

*  Initialize  Memory  Variable 
STORE  SPACE (5)  TO  MOROSHP 
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•  Input  Organ i nation/ Shop  Coda 

•  30, IS  SAT  'Entar  daairad  Organization  and  Shop  Code'; 

(SET  yOBGSHP  PICTUBE  'SOOAA' 

BEAD 

SET  FILTEB  TO  OBGSHPl  -  UPPEB(IIOBaSBP) 

GO  TOP 
CLEAB 

DO  NBILE  .MOT.  PBIIITEBA ' PpSsQq * 

•23,15  SAT  'Sand  Output  To  Printar  or  Seraan  (P/S,  or  Q  to  quit) 7' 
GET  PBIMTEB 
BEAD 
EBDDO 

CLEAB 

IF  UPPEB(PBIHTEB)>'Q* 

SAVE  TO  CUSBPTD.ISM 

CLEAB  ALL 

CLEAB 

CLOSE  DATABASES 
BETUBI 
EVDIF 

IP  OPPEB(PBIHTEB)»'S* 

CLEAB 

BEPOBT  FOBM  CUSBPTD.FBM  TO  SCBEEN 
WAIT 
EVDIF 

IF  DPPEB(PBIMTEB)«'P' 

CLEAB 

WAIT  'Baady  printar  and  praita  <BETUBV>' 

BEPOBT  FOBM  CUSBPTD.FBM  TO  PBIHT 
EVDIF 

CLEAB 

BETUBV 

EVDDO 

»  EOF:  CUSBPTD.PBG 


»  Program.:  CUSBPTH.PBG 

*  Author..:  Capt  Jaff  Bailay 

*  Laat  Baviaion:  0  Auguat  1988 

*  Votaa...:  HELP  for  tha  Equipmant  Cuatodian  Liat  Raporta 

»  Module  of  tha  Equipment  Management  Information  Syatam 

«  Called  From  CUSBPT.PBG 


CLEAB 


TEXT 


ItelcoiM  to  tb«  Equipotnt  Custodian  List  reports  module  of  the 
Equipment  Manalement  Information  System.  This  module  mill  provide 
you  with  information  needed  to  ensure  equipment  custodians  assigned 
to  manage  equipment  accounts  meet  the  requirements  of  AFM  67-1. 

Cxirrently,  this  module  provides  the  following  reports; 


All  Custodians  In  The  Log 
Custodians  By  Training  Date 
Custodian  By  Same 

Custodians  By  Organization  And  Shop  Code 


The  requirement  to  maintain  and  manage  certain  information  concerning 
equipment  ciistodians  is  contained  in  AFlf  67-1,  Tol  II,  Part  2,  Ch  22, 
Para  29. 

EIDTEZT 

WAIT  SPACE(ll)  *  ’Press  any  key  to  return  to  the  Equipment  Custodian*; 
'  List  Menu.' 

CLEAB 

BETUBH 

»  EOF:  CUSBPTH.PBO 


»  Program.:  CUSHLP.PBO 
«  Author..:  Capt  Jeff  Bailey 

*  Last  Revision:  9  August  1988 

•  Rotes...:  HELP  for  the  Equipment  Custodian  List  Module 

«  of  the  Equipment  Management  Information  System 

»  Called  From  CUS.PRG 

CLEAR 

TEXT 

Welcome  to  the  Equipment  Custodian  List  module  of  the  Equipment 
Manageawnt  Information  System.  This  module  will  assist  you  in 
Mintainlng  up-to-date  equipment  custodian  information  on  the 
microcomputer.  It  allows  you  to  add,  update,  and  delete  your  entries 
to  the  list.  It  also  can  provide  you  with  several  reports  for  managing 
the  equipment  custodian  list. 
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Currently,  this  nodule  eupporta  the  following  tasks: 


•  Add  Custodians  To  The  List  * 

•  » 

•  Update  Custodian  Infornation  « 

•  « 

«  Delete  Custodians  Pron  The  List  » 

»  • 

«  Process  Reports  « 

»»•»»»»•»»»»»»*»»»»»»»»»»»«»»•»»•»»•»•«»« 

The  requirement  to  snlntain  and  manage  certain  information 
concerning  equipment  custodians  is  contained  in  AFM  67-1, 

Vol  II.  Part  2,  Ch  22,  Para  29. 

EMDTEXT 

WAIT  SPACE(20)  *  ’Press  any  key  to  see  more  HELP.' 

CLEAR 

TEXT 

«»««»»«« 

From  the  Equipswnt  Custodian  List  menu,  press  the  following 
letters  to  begin  working: 

To  ADD  custodians  to  the  Equipment  Custodian  List  press  [A] 

To  UPDATE  records  in  the  Equipment  Custodian  List  press  [B] 

To  DELETE  custodians  from  the  Equipment  Custodian  List  press  [C] 
To  run  a  REPORT  on  the  Equipment  Custodian  List  press  [D] 

To  QUIT  using  the  system  press  [Q] 


EHDTEXT 

WAIT  SPACE(20)  *  'Press  any  key  to  see  more  HELP.' 

CLEAR 

TEXT 

The  data  elements  used  in  the  Equipment  Custodian  List  are 
listed  below.  The  template  can  be  interpreted  as  follows:  A  '9' 
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■eans  a  nuabar  la  raquirad,  an  ‘A*  meana  a  letter  ia  required,  and 
an  'Z‘  aeana  either  a  number  or  a  letter  is  allowed. 


Common  Name 

Width 

Template 

Grade 

2 

A9 

First  Marne 

15 

AAAAAAAAAAAAAAA 

Middle  Initial 

1 

A 

Last  Name 

20 

AAAAAAAAAAAAAAAAAAAA 

Date  Trained 

4 

9999 

Projected  Departure  Date 

4 

9999 

Primary  Extension 

4 

9999 

Alternate  Extension 

4 

9999 

Organization/Shop  Code 

5 

999AA 

Pr isnry/Al ternate 

1 

A 

In  addition,  each  record  input  to  the  lo|  is  assigned  a  three-digit 
custodian  number  by  the  system. 

EMDTEXT 

WAIT  SPACE(ll)  >  'Press  any  key  to  return  to  the  Equipment  Custodian 
‘List  menu. ' 

CLEAB 

BETUBH 

»  EOF:  COSHLP.PRQ 
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